求帮忙解释下这段程序啊~

ya634984094

IF((NPATCH(1:4).EQ.'WDC3').AND.(INDVAR.EQ.C3)) THEN
         L0VAL=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