Changeset 2604 for trunk/LMDZ.COMMON

Timestamp:

Jan 7, 2022, 9:24:18 AM (3 years ago)

Author:

emillour

Message:

Common dynamics:
Update "infotrac_init": stop with an error message if file traceur.def is
not found (rather than make the assumption that the model is running
with a dummy tracer)
EM

File:

• trunk/LMDZ.COMMON/libf/dyn3d_common/infotrac.F90 (modified) (1 diff)

trunk/LMDZ.COMMON/libf/dyn3d_common/infotrac.F90

@@ -267 +267 @@
 !! -----------------------------------------------------------------------
        ELSE 
-          WRITE(lunout,*) 'Problem in opening traceur.def'
-          WRITE(lunout,*) 'ATTENTION using defaut values: nqtrue=1'
-          nqtrue=1 ! Defaut value
+          WRITE(lunout,*) trim(modname),' : Failed opening file traceur.def'
+          CALL abort_gcm(modname,"file traceur.def not found!",1)
        END IF