Changeset 4389 for LMDZ6/trunk/libf/dyn3dmem/dynredem_loc.F90
- Timestamp:
- Jan 23, 2023, 11:28:51 AM (16 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/dynredem_loc.F90
r4172 r4389 176 176 USE mod_hallo 177 177 USE strings_mod, ONLY: maxlen 178 USE infotrac, ONLY: nqtot, tracers, type s_trac178 USE infotrac, ONLY: nqtot, tracers, type_trac 179 179 USE control_mod 180 180 USE netcdf, ONLY: NF90_OPEN, NF90_NOWRITE, NF90_GET_VAR, NF90_INQ_VARID, & … … 243 243 !$OMP MASTER 244 244 fil="start_trac.nc" 245 IF(ANY(type s_trac=='inca') .OR. ANY(types_trac=='inco')) INQUIRE(FILE=fil,EXIST=lread_inca)245 IF(ANY(type_trac == ['inca','inco'])) INQUIRE(FILE=fil,EXIST=lread_inca) 246 246 IF(lread_inca) CALL err(NF90_OPEN(fil,NF90_NOWRITE,nid_trac),"open") 247 247 !$OMP END MASTER
Note: See TracChangeset
for help on using the changeset viewer.