Changeset 2564 for trunk/LMDZ.COMMON/libf/dyn3d

Timestamp:

Sep 21, 2021, 2:55:36 PM (3 years ago)

Author:

emillour

Message:

Common dynamics:
Check that there is indeed a run.def file to get options, flags, etc. from.
Stop if there isn't, as most likely the defaults won't do.
EM

File:

• trunk/LMDZ.COMMON/libf/dyn3d/gcm.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3d/gcm.F90

@@ -137 +137 @@
   REAL :: heure
   logical use_filtre_fft
+  logical :: present
 
 !-----------------------------------------------------------------------
@@ -151 +152 @@
 
 !----------------------------------------------------------------------
-!  lecture des fichiers gcm.def ou run.def
+!  Load flags and options from run.def
 !  ---------------------------------------
 !
+! Start by checking that there indeed is a run.def file
+  INQUIRE(file="run.def", EXIST=present)
+  IF(.not. present) then
+    CALL abort_gcm("gcm", "file run.def not found, Aborting!",1)
+  ENDIF
+
   CALL conf_gcm( 99, .TRUE. )
   if (mod(iphysiq, iperiod) /= 0) call abort_gcm("conf_gcm", &