Changeset 60 for LMDZ.3.3/trunk/libf/phylmd

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:

• fisrtilp.F (modified) (1 diff)
• fisrtilp_tr.F (modified) (1 diff)

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

@@ -281 +281 @@
          zrfl(i) = zrfl(i)+ MAX(zcond(i)-zoliq(i),0.0)
      .                    * (paprs(i,k)-paprs(i,k+1))/(RG*dtime)
-         IF (zt(i).LT.RTT) THEN
-           psfl(i,k)=zrfl(i)
-         ELSE
-           prfl(i,k)=zrfl(i)
-         ENDIF
-      ENDIF
-      ENDDO
-
+      ENDIF
+      IF (zt(i).LT.RTT) THEN
+        psfl(i,k)=zrfl(i)
+      ELSE
+        prfl(i,k)=zrfl(i)
+      ENDIF
+      ENDDO
 c
 c Calculer les tendances de q et de t:

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

@@ -349 +349 @@
          zrfl(i) = zrfl(i)+ MAX(zcond(i)-zoliq(i),0.0)
      .                    * (paprs(i,k)-paprs(i,k+1))/(RG*dtime)
-         IF (zt(i).LT.RTT) THEN
-           psfl(i,k)=zrfl(i)
-         ELSE
-           prfl(i,k)=zrfl(i)
-         ENDIF
+      ENDIF
+      IF (zt(i).LT.RTT) THEN
+        psfl(i,k)=zrfl(i)
+      ELSE
+        prfl(i,k)=zrfl(i)
       ENDIF
       ENDDO