Changeset 3082 for trunk/LMDZ.COMMON/libf/evolution/ice_table_mod.F90

Timestamp:

Oct 11, 2023, 1:40:58 PM (14 months ago)

Author:

jbclement

Message:

PEM:

• Correction of a bug in the initialization of constants. The correct modules are now used: 'comcstfi_h' (and no longer 'comconst_mod'!) in the general case and 'comcstfi_mod' in the case of generic model;
• Addition of the variable 'ecritpem' in "run_PEM.def" to set the frequency of outputs in the "diagfi.nc". By default, 'ecritpem = 1' which means there is one output at each PEM year.

JBC

File:

• trunk/LMDZ.COMMON/libf/evolution/ice_table_mod.F90 (modified) (1 diff)

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

@@ -146 +146 @@
 !!!
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-    use comsoil_h_PEM, only: mlayer_PEM    
-    use comslope_mod, only: subslope_dist,def_slope_mean           
-    use comconst_mod,only: pi       
+    use comsoil_h_PEM, only: mlayer_PEM
+    use comslope_mod, only: subslope_dist,def_slope_mean
     use constants_marspem_mod,only:porosity
+#ifndef CPP_STD
+    use comcstfi_h,   only: pi
+#else
+    use comcstfi_mod, only: pi
+#endif
+
     implicit none 
 !   inputs