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

Timestamp:

Sep 22, 2021, 5:15:29 PM (4 years ago)

Author:

emillour

Message:

Mars GCM:
Some follow-up of commit r2562; update newstart, start2archive and
testphys1d accordingly.
EM

File:

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

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

@@ -22 +22 @@
       use dimradmars_mod, only: tauvis,totcloudfrac
       use dust_param_mod, only: tauscaling
-      use co2cloud_mod, only: mem_Mccn_co2, mem_Mh2o_co2,
-     &                        mem_Nccn_co2
       USE comvert_mod, ONLY: ap,bp,aps,bps,pa,preff,sig,
      &                       presnivs,pseudoalt,scaleheight
@@ -564 +562 @@
       call getin("co2ice",co2ice)
       write(*,*) " co2ice = ",co2ice
-! Initialization for CO2 clouds (could be improved to read initial profiles)
-      mem_Mccn_co2(:,:)=0
-      mem_Mh2o_co2(:,:)=0
-      mem_Nccn_co2(:,:)=0
+
 c
 c  emissivity
@@ -688 +683 @@
      &              dtphys,time,
      &              tsurf,tsoil,co2ice,albedo,emis,q2,qsurf,tauscaling,
-     &              totcloudfrac,wstar,
-     &              mem_Mccn_co2,mem_Nccn_co2,
-     &              mem_Mh2o_co2,watercap)
+     &              totcloudfrac,wstar,watercap)
 
 c=======================================================================