- Timestamp:
- Dec 6, 2022, 12:01:16 AM (20 months ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
- Property svn:mergeinfo changed
-
LMDZ6/branches/Ocean_skin/libf/phylmdiso/climb_hq_mod.F90
r4004 r4368 6 6 USE dimphy 7 7 #ifdef ISO 8 USE infotrac_phy, ONLY: ntraciso ! ajout C Risi pour isos8 USE infotrac_phy, ONLY: ntraciso=>ntiso ! ajout C Risi pour isos 9 9 #endif 10 10 … … 59 59 ) 60 60 #ifdef ISOVERIF 61 !USE infotrac_phy, ONLY: use_iso62 61 USE isotopes_mod, ONLY: iso_eau,iso_HDO 63 62 !USE isotopes_verif_mod, ONLY: errmax, errmaxrel … … 502 501 503 502 #ifdef ISOVERIF 504 USE infotrac_phy, ONLY: ok_isotrac503 USE infotrac_phy, ONLY: nzone 505 504 USE isotopes_mod, ONLY: iso_eau,iso_HDO,iso_O18, ridicule 506 505 USE isotopes_verif_mod … … 578 577 endif 579 578 #ifdef ISOTRAC 580 if (ok_isotrac) then 581 call iso_verif_traceur(xt_old(1,i,k),'climb_hq_mod 422') 582 endif 579 IF(nzone > 0) CALL iso_verif_traceur(xt_old(1,i,k),'climb_hq_mod 422') 583 580 #endif 584 581 enddo … … 781 778 endif 782 779 #ifdef ISOTRAC 783 if (ok_isotrac) then 784 call iso_verif_traceur(xt_old(1,i,k),'climb_hq_mod 526') 785 endif 780 IF(nzone > 0) CALL iso_verif_traceur(xt_old(1,i,k),'climb_hq_mod 526') 786 781 #endif 787 782 #endif
Note: See TracChangeset
for help on using the changeset viewer.