Changeset 3302 for trunk

Timestamp:

Apr 15, 2024, 6:10:08 PM (7 months ago)

Author:

jbclement

Message:

Mars PCM:
Correction related to r3301: the variable 'resol' was not linked to longitude resolution.
JBC

Location:

trunk/LMDZ.MARS

Files:

• changelog.txt (modified) (1 diff)
• libf/dynphy_lonlat/phymars/subslope_mola.F90 (modified) (1 diff)

trunk/LMDZ.MARS/changelog.txt

@@ -4602 +4602 @@
 == 15/04/2024 == JBC
 Modification of "subslope_mola.F90" to take into account other longitude resolution than 64. It makes "newstart" be able to change the number of sub-slopes for low resolution.
+
+== 15/04/2024 == JBC
+Correction related to r3301: the variable 'resol' was not linked to longitude resolution.

trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/subslope_mola.F90

@@ -19 +19 @@
 
       double precision :: resol
-      parameter(resol = real(iim))
+      parameter(resol = 64)
       integer :: jjm_mola, iim_mola 
       parameter(jjm_mola=180*resol, iim_mola=2*jjm_mola)