Changeset 15127 for NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/TRP/trdmxl_trc_rst.F90
- Timestamp:
- 2021-07-16T20:00:12+02:00 (3 years ago)
- Location:
- NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO
- Property svn:externals
-
old new 9 9 10 10 # SETTE 11 ^/utils/CI/sette@14244 sette 11 ^/utils/CI/sette@HEAD sette 12
-
- Property svn:externals
-
NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/TOP/TRP/trdmxl_trc_rst.F90
r13286 r15127 12 12 USE iom ! I/O module 13 13 USE trc ! for ctrcnm 14 USE trd mxl_trc_oce ! for lk_trdmxl_trc14 USE trdtrc_oce ! for lk_trdmxl_trc 15 15 16 16 IMPLICIT NONE … … 53 53 clpath = TRIM(cn_trcrst_outdir) 54 54 IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/' 55 IF(lwp) WRITE(numout,*) ' open ocean restart_mld_trc NetCDF ' TRIM(clpath)//TRIM(clname)55 IF(lwp) WRITE(numout,*) ' open ocean restart_mld_trc NetCDF ', TRIM(clpath)//TRIM(clname) 56 56 CALL iom_open( TRIM(clpath)//TRIM(clname), nummldw_trc, ldwrt = .TRUE. ) 57 57 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.