Changeset 1919 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Apr 17, 2018, 10:20:35 AM (7 years ago)

Author:

mvals

Message:

Mars GCM:
1D code cleanup:

• in testphys1d.F variable totcloudfrac is directly called from dimradmars_mod (which notably prevents from errors when tracer=F)

MV

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F (modified) (4 diffs)

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

@@ -20 +20 @@
       use time_phylmdz_mod, only: daysec, dtphys, day_step,
      &                            ecritphy, iphysiq
-      use dimradmars_mod, only: tauscaling,tauvis
+      use dimradmars_mod, only: tauscaling,tauvis,totcloudfrac
       USE comvert_mod, ONLY: ap,bp,aps,bps,pa,preff,sig,
      &                       presnivs,pseudoalt,scaleheight
@@ -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=======================================================================
 
@@ -229 +225 @@
         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
@@ -719 +712 @@
      .              dtphys,time,
      .              tsurf,tsoil,co2ice,emis,q2,qsurf,tauscaling,
-     .              totcloudfrac) !MV17 nuages alizee
+     .              totcloudfrac)
 
 c=======================================================================