Changeset 1711 for trunk/LMDZ.MARS/libf/phymars/callkeys.h

Timestamp:

May 19, 2017, 11:19:17 AM (8 years ago)

Author:

mvals

Message:

Mars GCM

• implementation of a sub-grid water cloud fraction scheme (by A. Pottier): If CLFvarying is set to true in callphys.def, then the sub-grid cloud fraction routine is applied in watercloud.F and aeropacity.F.
• accordingly modified files are: watercloud.F, aeropacity.F, callradite.F, conf_phys.F, phyetat0.F, phyredem.F90, physiq_mod.F, testphys1d.F, callkeys.h, newtsart.F, start2archive.F, lect_start_archive.F
• added file: tcondwater.F90, used by watercloud.F to calculate the condensation temperature of water
• watercloud.F, aeropacity.F, callradite.F are converted to module files as watercloud_mod.F, aeropacity_mod.F, callradite_mod.F

MV

File:

• trunk/LMDZ.MARS/libf/phymars/callkeys.h (modified) (4 diffs)

trunk/LMDZ.MARS/libf/phymars/callkeys.h

@@ -14 +14 @@
      &   ,activice,water,tifeedback,microphys,supersat,caps,photochem   &
      &   ,calltherm,callrichsl,callslope,tituscap,callyamada4,co2clouds,&
-     &   microphysco2
+     &   microphysco2,CLFvarying
      
       COMMON/callkeys_i/iradia,iaervar,iddist,ilwd,ilwb,ilwn,ncouche    &
@@ -20 +20 @@
      
       COMMON/callkeys_r/topdustref,semi,alphan,euveff,                  &
-     &   tke_heat_flux,dustrefir,fixed_euv_value
+     &   tke_heat_flux,dustrefir,fixed_euv_value,CLFfixval
      
       LOGICAL callrad,calldifv,calladj,callcond,callsoil,               &
@@ -41 +41 @@
       real euveff
       real tke_heat_flux
+      real CLFfixval
 
       integer iddist
@@ -59 +60 @@
       logical sedimentation
       logical activice,tifeedback,supersat,caps
+      logical CLFvarying
       logical co2clouds
       logical water