Changeset 4050 for LMDZ6/trunk/libf/dyn3d/dynredem.F90
- Timestamp:
- Dec 23, 2021, 6:54:17 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d/dynredem.F90
r4046 r4050 7 7 USE IOIPSL 8 8 #endif 9 USE infotrac 9 USE infotrac, ONLY: nqtot, tracers, maxlen 10 10 USE netcdf, ONLY: NF90_CREATE, NF90_DEF_DIM, NF90_INQ_VARID, NF90_GLOBAL, & 11 11 NF90_CLOSE, NF90_PUT_ATT, NF90_UNLIMITED, NF90_CLOBBER, & 12 12 NF90_64BIT_OFFSET 13 13 USE dynredem_mod, ONLY: cre_var, put_var1, put_var2, err, modname, fil 14 USE strings_mod, ONLY: maxlen15 14 USE comvert_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt,pa,preff, & 16 15 nivsig,nivsigs … … 167 166 ! Purpose: Write the NetCDF restart file (append). 168 167 !------------------------------------------------------------------------------- 169 USE infotrac 168 USE infotrac, ONLY: nqtot, tracers, type_trac, maxlen 170 169 USE control_mod 171 170 USE netcdf, ONLY: NF90_OPEN, NF90_NOWRITE, NF90_GET_VAR, NF90_INQ_VARID, &
Note: See TracChangeset
for help on using the changeset viewer.