Changeset 4984 for LMDZ6/trunk/libf/dyn3d/check_isotopes.F90

Timestamp:

Jun 15, 2024, 6:26:24 PM (12 days ago)

Author:

crisi

Message:

plenty of files that I forgot to commit last time.

File:

• LMDZ6/trunk/libf/dyn3d/check_isotopes.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d/check_isotopes.F90

@@ -23 +23 @@
                              iso_O17, iso_HTO
    LOGICAL, SAVE :: first=.TRUE.
+   LOGICAL, PARAMETER :: tnat1=.TRUE.
 
    modname='check_isotopes'
@@ -34 +35 @@
       iso_O17 = strIdx(isoName,'H217O')
       iso_HTO = strIdx(isoName,'HTO')
-      IF(getKey('tnat', tnat)) CALL abort_gcm(modname, 'missing isotopic parameter', 1)
+      if (tnat1) then
+              tnat(:)=1.0
+      else
+         IF(getKey('tnat', tnat)) CALL abort_gcm(modname, 'missing isotopic parameter', 1)
+      endif
       first = .FALSE.
    END IF