Changeset 4124 for LMDZ6/trunk/libf/dyn3dmem/check_isotopes_loc.F

Timestamp:

Apr 8, 2022, 4:47:04 PM (2 years ago)

Author:

dcugnet

Message:

Remove solsym, ok_isotopes (=niso>0), ok_isotrac (=nzone>0)

File:

• LMDZ6/trunk/libf/dyn3dmem/check_isotopes_loc.F (modified) (4 diffs)

LMDZ6/trunk/libf/dyn3dmem/check_isotopes_loc.F

@@ -1 +1 @@
         subroutine check_isotopes(q,ijb,ije,err_msg)
-        USE infotrac, ONLY: nqtot, nqo, niso, ntraciso, ntraceurs_zone, 
-     &                ok_isotopes, ok_isotrac, use_iso, 
+        USE infotrac, ONLY: nqtot, nqo, niso, ntraciso, nzone,
+     &                use_iso, 
      &                iqiso, indnum_fn_num, index_trac, tnat
         USE parallel_lmdz
@@ -30 +30 @@
         real deltaD
 
-        if (ok_isotopes) then
+        if (niso > 0) then
 
 !        write(*,*) 'check_isotopes 31: err_msg=',err_msg
@@ -139 +139 @@
 
 !        write(*,*) 'check_isotopes 129'
-        if (ok_isotrac) then
+        if (nzone > 0) then
 
           if (use_iso(2).and.use_iso(1)) then
@@ -208 +208 @@
           enddo !do iiso=1,niso
 
-        endif !if (ok_isotrac) then
-
-        endif ! if (ok_isotopes)
+        endif !if (nzone > 0)
+
+        endif ! if (niso > 0)
 !        write(*,*) 'check_isotopes 198'