Changeset 3742

Timestamp:

Apr 28, 2025, 3:25:16 PM (8 weeks ago)

Author:

jbclement

Message:

PEM:
Resulting modifications due to changes in the Mars PCM with r3739 and r3741.
JBC

Location:

trunk/LMDZ.COMMON/libf/evolution

Files:

• changelog.txt (modified) (1 diff)
• pem.F90 (modified) (2 diffs)
• recomp_orb_param_mod.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/evolution/changelog.txt ¶

@@ -639 +639 @@
 == 25/04/2025 == JBC
 Resulting change due to revision r3737 in the 1D Mars PCM.
+
+== 28/04/2025 == JBC
+Resulting modifications due to changes in the Mars PCM with r3739 and r3741.

trunk/LMDZ.COMMON/libf/evolution/pem.F90 ¶

@@ -281 +281 @@
 
     ! Dummy variables to use the subroutine 'init_testphys1d'
-    logical                             :: therestart1D, therestartfi
+    logical                             :: therestart1D, therestartfi, prescribed_h2ovap
     integer                             :: ndt, day0
-    real                                :: ptif, pks, day, gru, grv, atm_wat_profile, atm_wat_tau
+    real                                :: ptif, pks, day, gru, grv, h2ovap_relax_time
     real, dimension(:),     allocatable :: zqsat
     real, dimension(:,:,:), allocatable :: dq, dqdyn
-    real, dimension(nlayer)             :: play, w, q_def_h2o_vap
+    real, dimension(nlayer)             :: play, w, q_prescribed_h2o_vap
     real, dimension(nlayer + 1)         :: plev
 #else
@@ -435 +435 @@
     call init_testphys1d('start1D.txt','startfi.nc',therestart1D,therestartfi,ngrid,nlayer,610.,nq,q,         &
                          time_0,pdyn(1),ucov,vcov,teta,ndt,ptif,pks,dtphys,zqsat,dq,dqdyn,day0,day,gru,grv,w, &
-                         play,plev,latitude,longitude,cell_area,atm_wat_profile,atm_wat_tau,q_def_h2o_vap)
+                         play,plev,latitude,longitude,cell_area,prescribed_h2ovap,h2ovap_relax_time,q_prescribed_h2o_vap)
     nsplit_phys = 1
     day_step = steps_per_sol

trunk/LMDZ.COMMON/libf/evolution/recomp_orb_param_mod.F90 ¶

@@ -15 +15 @@
 SUBROUTINE recomp_orb_param(i_myear,i_myear_leg)
 
-use time_evol_mod, only: year_bp_ini, var_obl, var_ecc, var_lsp
+use time_evol_mod,  only: year_bp_ini, var_obl, var_ecc, var_lsp
 use lask_param_mod, only: yearlask, obllask, ecclask, lsplask, end_lask_param_mod, last_ilask
 #ifndef CPP_STD
-    use comcstfi_h,   only: pi
-    use planete_h,    only: e_elips, obliquit, lsperi, periheli, aphelie, p_elips, peri_day, year_day
+    use comcstfi_h,       only: pi
+    use planete_h,        only: e_elips, obliquit, lsperi, periheli, aphelie, p_elips, peri_day, year_day
+    use call_dayperi_mod, only: call_dayperi
 #else
-    use comcstfi_mod, only: pi
-    use planete_mod,  only: e_elips, obliquit, lsperi, periastr, apoastr, p_elips, peri_day, year_day
+    use comcstfi_mod,     only: pi
+    use planete_mod,      only: e_elips, obliquit, lsperi, periastr, apoastr, p_elips, peri_day, year_day
 #endif