求帮忙解释下这段程序啊~
IF((NPATCH(1:4).EQ.'WDC3').AND.(INDVAR.EQ.C3)) THENL0VAL=L0F(VAL)
L0C3=L0F(C3)
L0C3O=L0F(OLD(C3))
LFDZGN=L0F(DZGNZ)+IZ
DO IX=1,NX
IADD=NY*(IX-1)
DO IY=1,NY
I=IY+IADD
LFVAL=L0VAL+I
LFC3O=L0C3O+I
F(LFVAL)=F(LFC3O)+F(LFC3O)*RG(4)*DT*(1-RG(3))
& /(F(LFDZGN)*(1-RG(4)*DT/F(LFDZGN)))
ENDDO
ENDDO
ENDIF
页:
[1]