Changeset 3205 for trunk/LMDZ.MARS/libf

Timestamp:

Feb 8, 2024, 11:05:11 AM (19 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

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F90 (modified) (1 diff)

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