Changeset 2885 for trunk/LMDZ.COMMON/libf/evolution/comsoil_h_PEM.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/comsoil_h_PEM.F90 (modified) (3 diffs)

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

@@ -22 +22 @@
   real, save, allocatable :: h2o_adsorbded_phys(:,:,:)  ! h2o that is in the regolith [kg/m^2]
   LOGICAL soil_pem  ! True by default, to run with the subsurface physic. Read in pem.def
+  real,save,allocatable,dimension(:) :: water_reservoir      ! Large reserve of water   [kg/m^2]
 
 contains
@@ -44 +45 @@
     allocate(co2_adsorbded_phys(ngrid,nsoilmx_PEM,nslope))
     allocate(h2o_adsorbded_phys(ngrid,nsoilmx_PEM,nslope))
+    allocate(water_reservoir(ngrid))
   end subroutine ini_comsoil_h_PEM
 
@@ -64 +66 @@
     if (allocated(co2_adsorbded_phys)) deallocate(co2_adsorbded_phys)
     if (allocated(h2o_adsorbded_phys)) deallocate(h2o_adsorbded_phys)
+    if (allocated(water_reservoir)) deallocate(water_reservoir)
   end subroutine end_comsoil_h_PEM