Changeset 3205

Timestamp:

Feb 8, 2024, 11:05:11 AM (11 months ago)

Author:

jbclement

Message:

Mars PCM:
Fix the situation where the 1D model read the "startfi.nc" or "start1D.txt" if they were present even though 'startfiles=.false', instead of initializing by default.
JBC

Location:

trunk/LMDZ.MARS

Files:

• changelog.txt (modified) (1 diff)
• libf/phymars/dyn1d/testphys1d.F90 (modified) (1 diff)

trunk/LMDZ.MARS/changelog.txt

@@ -4470 +4470 @@
 - Addition of the possibility to use subslopes parametization in 1D. To do so, put 'nslope=x' in "run.def" where x (1, 3, 5 or 7) is the number of slopes you want to, or modify it in an appropriate "startfi.nc". Then, default subslopes definition and distribution are used by the model. The already existing case of using one slope whose inclination and orientation are defined in "run.def" is still possible.
 - Some cleanings throughout the code, in particular related to unused variables.
+
+== 08/02/2024 == JBC
+Fix the situation where the 1D model read the "startfi.nc" or "start1D.txt" if they were present even though 'startfiles=.false', instead of initializing by default.

trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90

@@ -131 +131 @@
 
 therestart1D = .false. ! Default value
-inquire(file = 'start1D.txt',exist = therestart1D)
-if (startfiles_1D .and. .not. therestart1D) then
-    write(*,*) 'There is no "start1D.txt" file!'
-    write(*,*) 'Initialization is done with default values.'
-endif
 therestartfi = .false. ! Default value
-inquire(file = 'startfi.nc',exist = therestartfi)
-if (.not. therestartfi) then
-    write(*,*) 'There is no "startfi.nc" file!'
-    write(*,*) 'Initialization is done with default values.'
+if (startfiles_1D) then
+    inquire(file = 'start1D.txt',exist = therestart1D)
+    if (startfiles_1D .and. .not. therestart1D) then
+        write(*,*) 'There is no "start1D.txt" file!'
+        write(*,*) 'Initialization is done with default values.'
+    endif
+    inquire(file = 'startfi.nc',exist = therestartfi)
+    if (.not. therestartfi) then
+        write(*,*) 'There is no "startfi.nc" file!'
+        write(*,*) 'Initialization is done with default values.'
+    endif
 endif