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

Timestamp:

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

Author:

emillour

Message:

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

Location:

trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars

Files:

• newstart.F (modified) (3 diffs)
• start2archive.F (modified) (2 diffs)

trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/newstart.F

@@ -39 +39 @@
       use dust_param_mod, only: tauscaling
       use turb_mod, only: q2, wstar
-      use co2cloud_mod, only: mem_Mccn_co2, mem_Mh2o_co2,
-     &                        mem_Nccn_co2
       use filtreg_mod, only: inifilr
       USE mod_const_mpi, ONLY: COMM_LMDZ
@@ -443 +441 @@
      &        day_ini,time,tsurf,tsoil,albedo,emis,
      &        q2,qsurf,co2ice,tauscaling,totcloudfrac,
-     &        wstar,mem_Mccn_co2,mem_Nccn_co2,mem_Mh2o_co2,watercap)
+     &        wstar,watercap)
         
         ! copy albedo and soil thermal inertia
@@ -1790 +1788 @@
      &              dtphys,hour_ini,
      &              tsurf,tsoil,co2ice,albedo,emis,q2,qsurf,tauscaling,
-     &              totcloudfrac,wstar,
-     &              mem_Mccn_co2,mem_Nccn_co2,mem_Mh2o_co2,watercap)
+     &              totcloudfrac,wstar,watercap)
 
 c=======================================================================

trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/start2archive.F

@@ -71 +71 @@
       REAL albedo(ngridmx,2)
       REAL wstar(ngridmx)
-      DOUBLE PRECISION mem_Nccn_co2(ngridmx,llm)
-      DOUBLE PRECISION mem_Mccn_co2(ngridmx,llm)
-      DOUBLE PRECISION mem_Mh2o_co2(ngridmx,llm)
       INTEGER start,length
       PARAMETER (length = 100)
@@ -166 +163 @@
       CALL phyetat0 (fichnom,0,Lmodif,nsoilmx,ngridmx,llm,nqtot,
      &      day_ini_fi,timefi,tsurf,tsoil,albedo,emis,q2,qsurf,co2ice,
-     &      tauscaling,totcloudfrac,wstar,mem_Mccn_co2,mem_Nccn_co2,
-     &               mem_Mh2o_co2,watercap)
+     &      tauscaling,totcloudfrac,wstar,watercap)
 
        ierr = NF_OPEN (fichnom, NF_NOWRITE,nid1)