Changeset 1859 for trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

Timestamp:

Dec 16, 2017, 3:15:53 PM (7 years ago)

Author:

mturbet

Message:

add diagnostic of reevaporation of precipitation

File:

• trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90 (modified) (3 diffs)

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

@@ -275 +275 @@
       real zdqsrain(ngrid), zdqssnow(ngrid) ! Rain routine.
       real dqs_hyd(ngrid,nq)                ! Hydrol routine.
+      real reevap_precip(ngrid)             ! re-evaporation flux of precipitation (integrated over the atmospheric column)
                   
       ! For Tracers : (kg/kg_of_air/s)
@@ -1284 +1285 @@
 
                call rain(ngrid,nlayer,nq,ptimestep,pplev,pplay,pt,pdt,pq,pdq,            &
-                         zdtrain,zdqrain,zdqsrain,zdqssnow,cloudfrac)
+                         zdtrain,zdqrain,zdqsrain,zdqssnow,reevap_precip,cloudfrac)
 
                pdq(1:ngrid,1:nlayer,igcm_h2o_vap) = pdq(1:ngrid,1:nlayer,igcm_h2o_vap) &
@@ -2111 +2112 @@
                call writediagfi(ngrid,"rain","rainfall","kg m-2 s-1",2,zdqsrain)
                call writediagfi(ngrid,"snow","snowfall","kg m-2 s-1",2,zdqssnow)
+               call writediagfi(ngrid,"reevap","reevaporation of precipitation","kg m-2 s-1",2,reevap_precip)
             endif