Changeset 3891 for LMDZ6/branches/LMDZ-tracers/libf/dyn3dmem/check_isotopes_loc.F90

Timestamp:

May 11, 2021, 2:10:34 PM (3 years ago)

Author:

dcugnet

Message:

• Bugs corrections:
  • sequential gcm fixed
  • parallel gcm compilation fixed ; to be tested
• Some generic operations moved from infotrac to readTracFile
• Fixed algebrical reduction routine, used in the isotopes parameters file.
• Additional component "comp" in the tracers descriptor derived type "tra",

specifying the model component name(s) (cf. tracers sections) it belongs.

• isotopes class selection tool fixed.

File:

• LMDZ6/branches/LMDZ-tracers/libf/dyn3dmem/check_isotopes_loc.F90 (modified) (2 diffs)

LMDZ6/branches/LMDZ-tracers/libf/dyn3dmem/check_isotopes_loc.F90

@@ -26 +26 @@
   modname = 'check_isotopes'
   IF(first) THEN
+    iH2O = -1
     IF(isoSelect('H2O')) RETURN
     ixH2O = strIdx(isoName,'H2[16]O')
@@ -32 +33 @@
     first = .FALSE.
   ELSE
+    IF(iH2O == -1)      RETURN
     IF(isoSelect(iH2O)) RETURN
   END IF