Changeset 4124 for LMDZ6/trunk/libf/phylmdiso/isotopes_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/isotopes_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmdiso/isotopes_mod.F90

@@ -3 +3 @@
 
 MODULE isotopes_mod
-USE infotrac_phy, ONLY: ntraciso,niso,indnum_fn_num,ok_isotrac,use_iso, &
+USE infotrac_phy, ONLY: ntraciso,niso,indnum_fn_num,use_iso, &
 &       niso_possibles
 IMPLICIT NONE
@@ -245 +245 @@
       write(*,*) 'iso_init 64: niso=',niso
 
-! init de ntracisoOR: on écrasera en cas de ok_isotrac si complications avec
+! init de ntracisoOR: on écrasera en cas de nzone>0 si complications avec
 ! ORCHIDEE
       ntracisoOR=ntraciso  
@@ -327 +327 @@
 call getin_p('essai_convergence',essai_convergence)
 call getin_p('initialisation_iso',initialisation_iso)
-!if (ok_isotrac) then      
+!if (nzone>0) then      
 !if (initialisation_iso.eq.0) then
 !  call getin_p('initialisation_isotrac',initialisation_isotrac)
 !endif !if (initialisation_iso.eq.0) then
-!endif !if (ok_isotrac) then      
+!endif !if (nzone>0)
 call getin_p('modif_sst',modif_sst)
 if (modif_sst.ge.1) then