Changeset 2252 for trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

Timestamp:

Mar 6, 2020, 5:46:50 PM (5 years ago)

Author:

abierjon

Message:

Mars GCM:
Bug fix following r2248 in aeropacity_mod and topmons_mod : since dsodust, dsords and dsotop are diagnostic physiq_mod variables, we don't want them to be reinitialized at each call of aeropacity_mod and topmons_mod, but we initialize them once and for all at the beginning of physiq_mod instead.
AB

File:

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

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

@@ -672 +672 @@
       zdtsurf(:)=0
       dqsurf(:,:)=0
-      
+      dsodust(:,:)=0.
+      dsords(:,:)=0.
+      dsotop(:,:)=0.
+
 #ifdef DUSTSTORM
       pq_tmp(:,:,:)=0
@@ -1124 +1127 @@
            hsummit(:)=14000.
          endif
-         clearatm=.true.
+         clearatm=.true. ! stormdust is not accounted in the extra heating on top of the mountains 
          nohmons=.false.
          pdqtop(:,:,:)=0.