Changeset 1993 for trunk/LMDZ.GENERIC/libf/phystd/rain.F90

Timestamp:

Aug 29, 2018, 4:41:34 PM (6 years ago)

Author:

jleconte

Message:

29/08/2018 == JL

-watersat was used only in vdifc and thus it was not consistent with other routines (turbdiff, rain, largescale...) which used Psat_water from watercommon.
This is now harmonized. ALl routines use Psat_water. Watersat.F has been removed, but the routine is now in watercommon for archival purpose. It is not used anymore.
-also changed the number of chars for tname in the dyn3D/infotrac.F90 to be able to run rcm1d.

File:

• trunk/LMDZ.GENERIC/libf/phystd/rain.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/rain.F90

@@ -82 +82 @@
       real reffh2oliq(ngrid,nlayer),reffh2oice(ngrid,nlayer)
   
-      real ttemp, ptemp, psat_tmp
+      real ptemp, psat_tmp
       real tnext(ngrid,nlayer)
 
@@ -183 +183 @@
       DO k = 1, nlayer
          DO i = 1, ngrid
-            ttemp = zt(i,k) 
             ptemp = pplay(i,k)
-!            call watersat(ttemp,ptemp,zqs(i,k))
-            call Psat_water(ttemp,ptemp,psat_tmp,zqs(i,k))
+            call Psat_water(zt(i,k) ,ptemp,psat_tmp,zqs(i,k))
             call Tsat_water(ptemp,Tsat(i,k))
          ENDDO