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

Timestamp:

Nov 23, 2022, 11:11:26 AM (2 years ago)

Author:

romain.vande

Message:

Mars GCM:
The variable co2ice is deleted. All the co2 ice on surface is now in qsurf(:,igcm_co2).
CO2 tracer is now mandatory. diagfi output is unchanged.
RV

File:

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

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

@@ -148 +148 @@
 
 subroutine physdem1(filename,nsoil,ngrid,nlay,nq, &
-                    phystep,time,tsurf,tsoil,co2ice,albedo,emis,q2,qsurf,&
+                    phystep,time,tsurf,tsoil,albedo,emis,q2,qsurf,&
                     tauscaling,totcloudfrac,wstar, &
                     watercap)
@@ -173 +173 @@
   real,intent(in) :: tsurf(ngrid)
   real,intent(in) :: tsoil(ngrid,nsoil)
-  real,intent(in) :: co2ice(ngrid)
   real,intent(in) :: albedo(ngrid,2)
   real,intent(in) :: emis(ngrid)
@@ -198 +197 @@
   ! set time counter in file
   call put_var("Time","Temps de simulation",time)
-  
-  ! CO2 ice layer
-  call put_field("co2ice","CO2 ice cover",co2ice,time)
 
   ! Water ice layer
@@ -299 +295 @@
       endif ! of if (txt.eq."hdo_vap")
 
-      ! co2_ice has been added to co2ice in co2condens4micro
+      ! co2_ice has been added to qsurf(:,igcm_co2) in co2condens4micro
       if (txt.eq."co2_ice") then
         write(*,*)"physdem1: skipping co2_ice tracer"