Changeset 2562 for trunk/LMDZ.MARS/libf/phymars/phyredem.F90

Timestamp:

Sep 21, 2021, 9:02:49 AM (3 years ago)

Author:

cmathe

Message:

GCM MARS: CO2 clouds microphysics improvements

File:

• trunk/LMDZ.MARS/libf/phymars/phyredem.F90 (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/phyredem.F90

@@ -150 +150 @@
                     phystep,time,tsurf,tsoil,co2ice,albedo,emis,q2,qsurf,&
                     tauscaling,totcloudfrac,wstar, &
-                    mem_Mccn_co2,mem_Nccn_co2,mem_Mh2o_co2, watercap)
+                    watercap)
   ! write time-dependent variable to restart file
   use iostart, only : open_restartphy, close_restartphy, & 
@@ -181 +181 @@
   real,intent(in) :: totcloudfrac(ngrid)
   real,intent(in) :: wstar(ngrid)
-  real,intent(in) :: mem_Mccn_co2(ngrid,nlay) ! CCN mass of H2O and dust used by CO2
-  real,intent(in) :: mem_Nccn_co2(ngrid,nlay) ! CCN number of H2O and dust used by CO2
-  real,intent(in) :: mem_Mh2o_co2(ngrid,nlay) ! H2O mass integred into CO2 crystal
   real,intent(in) :: watercap(ngrid)
   
@@ -311 +308 @@
     enddo
   endif
-  ! Memory of the origin of the co2 particles
-  if (co2useh2o) then
-     call put_field("mem_Mccn_co2","CCN mass of H2O and dust used by CO2",mem_Mccn_co2,time)
-     call put_field("mem_Nccn_co2","CCN number of H2O and dust used by CO2",mem_Nccn_co2,time)
-     call put_field("mem_Mh2o_co2","H2O mass integred into CO2 crystal",mem_Mh2o_co2,time)
-  endif
- 
+
   ! Non-orographic gavity waves
   if (calllott_nonoro) then