Changeset 4046 for LMDZ6/trunk/libf/dyn3dmem/writedynav_loc.F
- Timestamp:
- Dec 15, 2021, 11:18:49 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/writedynav_loc.F
r2622 r4046 11 11 USE parallel_lmdz 12 12 USE misc_mod 13 USE infotrac, ONLY : nqtot , ttext13 USE infotrac, ONLY : nqtot 14 14 use com_io_dyn_mod, only : histaveid,histvaveid,histuaveid 15 15 USE comconst_mod, ONLY: cpp … … 177 177 !!$OMP MASTER 178 178 ! DO iq=1,nqtot 179 ! call histwrite(histaveid, t text(iq), itau_w, q(ijb:ije,:,iq),180 ! . iip1*jjn*llm, ndexu)179 ! call histwrite(histaveid, tracers(iq)%longName, itau_w, & 180 ! . q(ijb:ije,:,iq), iip1*jjn*llm, ndexu) 181 181 ! enddo 182 182 !!$OMP END MASTER
Note: See TracChangeset
for help on using the changeset viewer.