Changeset 2885 for trunk/LMDZ.COMMON/libf/evolution/pemredem.F90

Timestamp:

Jan 31, 2023, 9:52:30 PM (22 months ago)

Author:

romain.vande

Message:

Mars PCM:
Move a endif misplaced
RV

File:

• trunk/LMDZ.COMMON/libf/evolution/pemredem.F90 (modified) (3 diffs)

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

@@ -73 +73 @@
 subroutine pemdem1(filename,year_iter,nsoil_PEM,ngrid,nslope, &
                     tsoil_slope_PEM,inertiesoil_slope_PEM,ice_table, &
-                    m_co2_regolith,m_h2o_regolith)
+                    m_co2_regolith,m_h2o_regolith,water_reservoir)
   ! write time-dependent variable to restart file
   use iostart_PEM, only : open_restartphy, close_restartphy, & 
@@ -96 +96 @@
   real,intent(in) :: m_co2_regolith(ngrid,nsoil_PEM,nslope)
   real,intent(in) :: m_h2o_regolith(ngrid,nsoil_PEM,nslope)
+  real,intent(IN) :: water_reservoir(ngrid)
   integer :: islope
   CHARACTER*2 :: num  
@@ -115 +116 @@
   ! set time counter in file
   call put_var("Time","Year of simulation",year_tot)
+
+  call put_field("water_reservoir","water_reservoir", &
+                 water_reservoir,year_tot)
 
     if(soil_pem) then