Changeset 4050 for LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
- Timestamp:
- Dec 23, 2021, 6:54:17 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
r4040 r4050 123 123 #ifdef ISO 124 124 USE infotrac_phy, ONLY: & 125 iqiso,iso_ num,iso_indnum,zone_num,ok_isotrac, &125 iqiso,iso_indnum,tracers,ok_isotrac, & 126 126 niso,ntraciso,nqtottr,itr_indice ! ajout C Risi pour isos 127 127 USE isotopes_mod, ONLY: iso_eau,iso_HDO,iso_O18,iso_O17,iso_HTO, & … … 141 141 & iso_verif_aberrant_choix,iso_verif_positif, & 142 142 & iso_verif_positif_choix_vect,iso_verif_o18_aberrant_nostop, & 143 & iso_verif_init, 143 & iso_verif_init,& 144 144 & iso_verif_positif_strict_nostop,iso_verif_O18_aberrant_enc_vect2D 145 145 #endif … … 155 155 & iso_verif_traceur_justmass,iso_verif_traceur_vect, & 156 156 & iso_verif_trac17_q_deltad,iso_verif_trac_masse_vect, & 157 & iso_verif_t racpos_choix_nostop157 & iso_verif_tag17_q_deltaD_vect, iso_verif_tracpos_choix_nostop 158 158 #endif 159 159 #endif … … 2366 2366 #endif 2367 2367 if (ixt.gt.niso) then 2368 write(*,*) 'izone,iiso=', zone_num(iqiso(ixt,ivap)),iso_indnum(iqiso(ixt,ivap))2368 write(*,*) 'izone,iiso=',tracers(iqiso(ixt,ivap))%iso_iZone,iso_indnum(iqiso(ixt,ivap)) 2369 2369 endif 2370 2370 DO k = 1, klev
Note: See TracChangeset
for help on using the changeset viewer.