Changeset 1711 for trunk/LMDZ.MARS/libf/phymars/dyn1d

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/dyn1d/testphys1d.F (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

@@ -118 +118 @@
       character(len=44) :: txt
 
+!MV17 nuages alizee
+!     included by AP14 for cloud fraction computations- see BC generic
+      !real,allocatable,dimension(:,:),save :: cloudfrac
+      real,allocatable,dimension(:),save :: totcloudfrac
 c=======================================================================
 
@@ -225 +229 @@
         allocate(dqdyn(nlayer,nq))
         allocate(mqtot(nq))
+!MV17 nuages alizee
+        !allocate(cloudfrac(ngrid,nlayermx))!essai allocate AP14
+        allocate(totcloudfrac(ngrid))
         
         ! read tracer names from file traceur.def
@@ -711 +718 @@
       call physdem1("startfi.nc",nsoilmx,ngrid,llm,nq,
      .              dtphys,time,
-     .              tsurf,tsoil,co2ice,emis,q2,qsurf,tauscaling)
+     .              tsurf,tsoil,co2ice,emis,q2,qsurf,tauscaling,
+     .              totcloudfrac) !MV17 nuages alizee
 
 c=======================================================================