Changeset 2842 for trunk/LMDZ.COMMON/libf/evolution/ini_soil_mod.F90

Timestamp:

Dec 7, 2022, 5:53:27 PM (2 years ago)

Author:

romain.vande

Message:

Mars PEM:
PEM is now adapted to run with XIOS diurnal averages (when they will work properly)
RV

File:

• trunk/LMDZ.COMMON/libf/evolution/ini_soil_mod.F90 (modified) (6 diffs)

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

@@ -8 +8 @@
                therm_i, timestep,tsurf_ave,tsoil_ave,tsurf_inst, tsoil_inst,q_co2,q_h2o,ps,ice_table)
 
+#ifndef CPP_STD
+
       use vertical_layers_mod, only: ap,bp
       use comsoil_h_PEM, only:  fluxgeo,layer_PEM,inertiedat_PEM
       use comsoil_h,only: volcapa, nsoilmx
+#endif
 
    implicit none
@@ -86 +89 @@
 
     real,allocatable :: diff_rho(:)                    ! difference of vapor content
+
+#ifndef CPP_STD
 
     A =(1/m_co2 - 1/m_noco2)
@@ -227 +232 @@
      countloop = 0
    enddo
+
+#endif
  
       END SUBROUTINE ini_icetable
@@ -232 +239 @@
                therm_i,                          &
                timestep,tsurf,tsoil,alph,beta)
-
+#ifndef CPP_STD
       use comsoil_h_PEM, only: layer_PEM, mlayer_PEM,  &
                            mu_PEM,fluxgeo
       use comsoil_h,only: volcapa
+#endif
       implicit none
 
@@ -275 +283 @@
       real :: coefq_PEM(0:nsoil-1)
 
+#ifndef CPP_STD
+
 ! 0. Initialisations and preprocessing step
  if (firstcall) then
@@ -347 +357 @@
                        +coefd_PEM(ik))
       enddo
-
+#endif
       end