Changeset 4143 for LMDZ6/trunk/libf/dyn3dmem/dynetat0_loc.F90
- Timestamp:
- May 9, 2022, 12:35:40 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/dynetat0_loc.F90
r4124 r4143 7 7 !------------------------------------------------------------------------------- 8 8 USE parallel_lmdz 9 USE infotrac, ONLY: nqtot, tracers, niso, iq iso, iso_indnum, iso_num, tnat, alpha_ideal, iH2O9 USE infotrac, ONLY: nqtot, tracers, niso, iqIsoPha, tnat, alpha_ideal, iH2O 10 10 USE strings_mod, ONLY: maxlen, msg, strStack, real2str 11 11 USE netcdf, ONLY: NF90_OPEN, NF90_NOWRITE, NF90_INQUIRE_DIMENSION, NF90_INQ_VARID, & … … 169 169 #endif 170 170 ELSE IF(tracers(iq)%iso_iGroup == iH2O .AND. niso > 0) THEN !=== WATER ISOTOPES 171 ! iName = tracers(iq)%iso_iName ! (next commit) 172 iName = iso_num(iq) 171 iName = tracers(iq)%iso_iName 173 172 iPhase = tracers(iq)%iso_iPhase 174 173 iqParent = tracers(iq)%iqParent … … 178 177 ELSE 179 178 CALL msg('Tracer <'//TRIM(var)//'> is missing => initialized to its parent isotope concentration.', modname) 180 q(ijb_u:ije_u,:,iq) = q(ijb_u:ije_u,:,iq iso(iso_indnum(iq),iPhase))179 q(ijb_u:ije_u,:,iq) = q(ijb_u:ije_u,:,iqIsoPha(iName,iPhase)) 181 180 END IF 182 181 !--------------------------------------------------------------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.