Changeset 1775 for trunk/LMDZ.MARS/libf/phymars/aeropacity_mod.F

Timestamp:

Aug 27, 2017, 8:58:01 AM (7 years ago)

Author:

aslmd

Message:

LMDZ.MARS setting the stage for maybe fixing nesting in the LMD_MM_MARS 4. ensure arrays not allocated in read_dust_scenario if already allocated -- other changes are useful comments for subsequent developments

File:

• trunk/LMDZ.MARS/libf/phymars/aeropacity_mod.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/aeropacity_mod.F

@@ -160 +160 @@
 ! identify tracers
 
+      !! AS: firstcall OK absolute
       IF (firstcall) THEN
         ! identify scatterers that are dust
@@ -186 +187 @@
 
 c       typical profile of solsir and (1-w)^(-1):
+c       --- purely for diagnostics and printing
         msolsir(1:nlayer,1:naerkind)=0
         mqextsqabs(1:nlayer,1:naerkind)=0