- Timestamp:
- 2018-12-11T09:27:54+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/DOM/iscplrst.F90
r10170 r10380 82 82 cfile='correction' 83 83 cfile = TRIM( cfile ) 84 CALL iom_open ( cfile, inum0, ldwrt = .TRUE. , kiolib = jprstlib)84 CALL iom_open ( cfile, inum0, ldwrt = .TRUE. ) 85 85 CALL iom_rstput( 0, 0, inum0, 'vol_cor', hdiv_iscpl(:,:,:) ) 86 86 CALL iom_rstput( 0, 0, inum0, 'tem_cor', htsc_iscpl(:,:,:,jp_tem) )
Note: See TracChangeset
for help on using the changeset viewer.