Changeset 1960 for trunk/LMDZ.TITAN/libf/phytitan

Timestamp:

Jul 3, 2018, 4:09:02 PM (6 years ago)

Author:

jvatant

Message:

Minor adjustment of r1958

File:

• trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90 (modified) (3 diffs)

trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90

@@ -378 +378 @@
       real, dimension(:,:,:), allocatable, save   :: dycchi         ! NB : Only for chem tracers. Saved since chemistry is not called every step.
 !$OMP THREADPRIVATE(dycchi)
-      real, dimension(ngrid,nlayer,nq)            :: dyccond        ! Condensation flux. NB : for all tracers, as we want to use indx on it.
+      real, dimension(ngrid,nlayer,nq)            :: dyccond        ! Condensation rate. NB : for all tracers, as we want to use indx on it.
       real, dimension(ngrid,nlayer,nq)            :: dyccondbar     ! For 2D chemistry
-      real, dimension(ngrid)                      :: dycevapCH4     ! Surface "pseudo-evaporation" flux (forcing constant surface humidity).
+      real, dimension(ngrid)                      :: dycevapCH4     ! Surface "pseudo-evaporation" rate (forcing constant surface humidity).
 
       ! Saturation profiles
@@ -1580 +1580 @@
              call writediagfi(ngrid,cnames(iq),cnames(iq),'mol/mol',3,zq(:,:,iq+nmicro)/rat_mmol(iq+nmicro))
            enddo
-           call writediagfi(ngrid,"fluxCH4","Surface CH4 pseudo-evaporation",'mol/mol/s',2,dycevapCH4)
+           call writediagfi(ngrid,"evapCH4","Surface CH4 pseudo-evaporation rate",'mol/mol/s',2,dycevapCH4)
          endif
 
@@ -1679 +1679 @@
 
         ! Pseudo-evaporation flux (mol/mol/s)
-        CALL send_xios_field("dqevapCH4",dycevapCH4(:))
+        CALL send_xios_field("evapCH4",dycevapCH4(:))
 
       endif ! of 'if callchim'