Changeset 60


Ignore:
Timestamp:
Feb 22, 2000, 3:57:45 PM (25 years ago)
Author:
lmdz
Message:

Calcul de prfl et psfl en ciel clair aussi. O. Boucher
LF

Location:
LMDZ.3.3/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/phylmd/fisrtilp.F

    r43 r60  
    281281         zrfl(i) = zrfl(i)+ MAX(zcond(i)-zoliq(i),0.0)
    282282     .                    * (paprs(i,k)-paprs(i,k+1))/(RG*dtime)
    283          IF (zt(i).LT.RTT) THEN
    284            psfl(i,k)=zrfl(i)
    285          ELSE
    286            prfl(i,k)=zrfl(i)
    287          ENDIF
    288       ENDIF
    289       ENDDO
    290 
     283      ENDIF
     284      IF (zt(i).LT.RTT) THEN
     285        psfl(i,k)=zrfl(i)
     286      ELSE
     287        prfl(i,k)=zrfl(i)
     288      ENDIF
     289      ENDDO
    291290c
    292291c Calculer les tendances de q et de t:

  • LMDZ.3.3/trunk/libf/phylmd/fisrtilp_tr.F

    r43 r60  
    349349         zrfl(i) = zrfl(i)+ MAX(zcond(i)-zoliq(i),0.0)
    350350     .                    * (paprs(i,k)-paprs(i,k+1))/(RG*dtime)
    351          IF (zt(i).LT.RTT) THEN
    352            psfl(i,k)=zrfl(i)
    353          ELSE
    354            prfl(i,k)=zrfl(i)
    355          ENDIF
     351      ENDIF
     352      IF (zt(i).LT.RTT) THEN
     353        psfl(i,k)=zrfl(i)
     354      ELSE
     355        prfl(i,k)=zrfl(i)
    356356      ENDIF
    357357      ENDDO
Note: See TracChangeset for help on using the changeset viewer.