Changeset 2980 for trunk/LMDZ.COMMON/libf/evolution/pemetat0.F90

Timestamp:

Jun 12, 2023, 4:38:28 PM (18 months ago)

Author:

romain.vande

Message:

Mars PEM :

Adapt PEM to 1d runs.
Cleaning of names and unused variables.
Correct minor errors.
Adapt and correct reshape_xios_output utilitary for 1d diagfi output.

RV

File:

• trunk/LMDZ.COMMON/libf/evolution/pemetat0.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/evolution/pemetat0.F90

@@ -1 @@
-   SUBROUTINE pemetat0(filename,ngrid,nsoil_GCM,nsoil_PEM,nslope,timelen,timestep,TI_PEM,tsoil_PEM_yr1,tsoil_PEM,ice_table, ice_table_thickness, &
+   SUBROUTINE pemetat0(filename,ngrid,nsoil_GCM,nsoil_PEM,nslope,timelen,timestep,TI_PEM,tsoil_PEM,ice_table, ice_table_thickness, &
                       tsurf_ave_yr1,tsurf_ave_yr2,q_co2,q_h2o,ps_inst,tsoil_inst,tend_h2oglaciers,tend_co2glaciers,co2ice,waterice, &
                       global_ave_pressure,watersurf_ave,watersoil_ave, m_co2_regolith_phys,deltam_co2_regolith_phys,  &
@@ -35 +35 @@
   real,intent(in) :: co2ice(ngrid,nslope)                     ! co2 ice amount [kg/m^2]
   real,intent(in) :: waterice(ngrid,nslope)                   ! water ice amount [kg/m^2]
-  real, intent(in) :: tsoil_PEM_yr1(ngrid,nsoil_PEM,nslope)   ! soil temperature during 1st year [K]
   real, intent(in) :: watersurf_ave(ngrid,nslope)             ! surface water ice density, yearly averaged  (kg/m^3)
   real, intent(inout) :: watersoil_ave(ngrid,nsoil_PEM,nslope)! surface water ice density, yearly averaged (kg/m^3)