Changeset 4124 for LMDZ6/trunk/libf/phylmdiso/climb_hq_mod.F90

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/phylmdiso/climb_hq_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmdiso/climb_hq_mod.F90

@@ -502 +502 @@
 
 #ifdef ISOVERIF
-USE infotrac_phy, ONLY: ok_isotrac
+USE infotrac_phy, ONLY: nzone
 USE isotopes_mod, ONLY: iso_eau,iso_HDO,iso_O18, ridicule
 USE isotopes_verif_mod
@@ -578 +578 @@
          endif
 #ifdef ISOTRAC
-         if (ok_isotrac) then
-           call iso_verif_traceur(xt_old(1,i,k),'climb_hq_mod 422')
-         endif
+         IF(nzone > 0) CALL iso_verif_traceur(xt_old(1,i,k),'climb_hq_mod 422')
 #endif
         enddo
@@ -781 +779 @@
         endif
 #ifdef ISOTRAC
-        if (ok_isotrac) then
-           call iso_verif_traceur(xt_old(1,i,k),'climb_hq_mod 526')
-        endif 
+        IF(nzone > 0) CALL iso_verif_traceur(xt_old(1,i,k),'climb_hq_mod 526')
 #endif       
 #endif