Changeset 4984 for LMDZ6/trunk/libf/dyn3dmem/check_isotopes_loc.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/dyn3dmem/check_isotopes_loc.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3dmem/check_isotopes_loc.F90

@@ -24 +24 @@
                              iso_O17, iso_HTO
    LOGICAL, SAVE :: first=.TRUE.
+   LOGICAL, PARAMETER :: tnat1=.TRUE.
 !$OMP THREADPRIVATE(first)
 
@@ -37 +38 @@
       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
 !$OMP END MASTER
 !$OMP BARRIER