Changeset 2854 for trunk/LMDZ.COMMON/libf/dyn3d/conf_gcm.F90

Timestamp:

Dec 22, 2022, 5:38:14 PM (2 years ago)

Author:

llange

Message:

PEM
Conf_gcm is adapted to read the PEM.def files to simulate orbital parameter evolutions in the PEM
RV & LL

File:

• trunk/LMDZ.COMMON/libf/dyn3d/conf_gcm.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3d/conf_gcm.F90

@@ -30 +30 @@
                 alphax,alphay,taux,tauy
   USE temps_mod, ONLY: calend
+  USE temps_mod_evol, ONLY: year_bp_ini, dt_pem, alpha_criterion, Max_iter_pem, &
+                evol_orbit_pem
+  USE comsoil_h_pem, only: soil_pem
 
   IMPLICIT NONE
@@ -635 +638 @@
   endif
 !----------------------------------------
+
+!PEM parameter
+  year_bp_ini=0.
+  CALL getin('year_bp_ini', year_bp_ini)
+
+  dt_pem=1
+  CALL getin('dt_pem', dt_pem)
+
+  alpha_criterion=0.2
+  CALL getin('alpha_criterion', alpha_criterion)
+
+  evol_orbit_pem=.false.
+  CALL getin('evol_orbit_pem', evol_orbit_pem)
+
+  Max_iter_pem=99999999
+  CALL getin('Max_iter_pem', Max_iter_pem)
+
+  soil_pem=.true.
+  CALL getin('soil_pem', soil_pem)
 
 !----------------------------------------