Changeset 2491 for trunk

Timestamp:

Mar 30, 2021, 9:50:02 AM (4 years ago)

Author:

aslmd

Message:

MESOSCALE Mars: initialize a couple new initializations done in phyetat0

File:

• trunk/LMDZ.MARS/libf/phymars/physiq_mod.F (modified) (1 diff)

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

@@ -563 +563 @@
       PRINT*,'check: qsurf ',qsurf(1,1),qsurf(ngrid,nq)
       PRINT*,'check: co2 ',co2ice(1),co2ice(ngrid)
-      PRINT*,'check: watercap ',watercap(1),watercap(ngrid)
       !!!
       day_ini = pday
+      !!! a couple initializations (dummy for mesoscale) done in phyetat0
+      !!! --- maybe this should be done in update_inputs_physiq_mod
+      mem_Mccn_co2(:,:)=0.0
+      mem_Nccn_co2(:,:)=0.0
+      mem_Mh2o_co2(:,:)=0.0
+      tauscaling(:)=1.0 !! probably important
+      totcloudfrac(:)=1.0
+      albedo(:,1)=albedodat(:)
+      albedo(:,2)=albedo(:,1)
+      watercap(:)=0.0
 #endif
 #ifndef MESOSCALE