Changeset 3399 for trunk/LMDZ.COMMON/libf/evolution

Timestamp:

Jul 24, 2024, 12:20:23 AM (5 months ago)

Author:

jbclement

Message:

PEM:
Small corection for the 1D related to r3386 and r3369 + Making the computation of maximum number of iterations due to orbital variations more robust.
JBC

Location:

trunk/LMDZ.COMMON/libf/evolution

Files:

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

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

@@ -396 +396 @@
 Addition of the possiblity to launch the 1D model in the launching script + correction of small errors.
 
-==08/07/2024 == JBC
+== 08/07/2024 == JBC
 Updates and improvements related to the last modifications of the launching script.
+
+== 24/07/2024 == JBC
+Small corection for the 1D related to r3386 and r3369 + Making the computation of maximum number of iterations due to orbital variations more robust.

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

@@ -207 +207 @@
 
 year_iter_max = min(max_obl_iter,max_ecc_iter,max_lsp_iter)
+year_iter_max = max(year_iter_max,1)
 write(*,*) 'So the max. number of iterations for the orbital criteria =', year_iter_max
 

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

@@ -355 +355 @@
     allocate(longitude(ngrid),latitude(ngrid),cell_area(ngrid))
 #else
-    day_step = steps_per_sol
     allocate(q(1,llm,nqtot))
     allocate(longitude(1),latitude(1),cell_area(1))
@@ -377 +376 @@
     ps(2) = ps(1)
     nsplit_phys = 1
+    day_step = steps_per_sol
 #endif