Changeset 2435 for LMDZ5/branches/testing/libf/phylmd/fisrtilp.F90

Timestamp:

Jan 28, 2016, 5:02:13 PM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2396:2434 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/fisrtilp.F90 (modified) (2 diffs)

LMDZ5/branches/testing/libf/phylmd/fisrtilp.F90

@@ -123 +123 @@
   PARAMETER (ztfondue=278.15)
   REAL dzfice(klon)
+  REAL zsolid
   !
   LOGICAL appel1er
@@ -938 +939 @@
      !               *(paprs(i,k)-paprs(i,k+1))/(RG*dtime)                                    
 
+!CR : on prend en compte l'effet Bergeron dans les flux de precipitation
+           if ((iflag_bergeron.eq.1).and.(zt(i).LT.273.15)) then
+              zsolid = zrfl(i)
+              zifl(i) = zifl(i)+zrfl(i)
+              zrfl(i) = 0.
+              zt(i)=zt(i)+zsolid*(RG*dtime)/(paprs(i,k)-paprs(i,k+1)) &
+                      *(RLSTT-RLVTT)/RCPD/(1.0+RVTMP2*zq(i))
+           endif
+!RC   
+
          ENDIF                      
        ENDDO