- 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/ICE/icerst.F90
r10359 r10380 69 69 IF(lwp) THEN 70 70 WRITE(numout,*) 71 SELECT CASE ( jprstlib ) 72 CASE DEFAULT 73 WRITE(numout,*) ' open ice restart NetCDF file: ',TRIM(clpath)//clname 74 END SELECT 71 WRITE(numout,*) ' open ice restart NetCDF file: ',TRIM(clpath)//clname 75 72 IF( kt == nitrst - 2*nn_fsbc + 1 ) THEN 76 73 WRITE(numout,*) ' kt = nitrst - 2*nn_fsbc + 1 = ', kt,' date= ', ndastp … … 80 77 ENDIF 81 78 ! 82 CALL iom_open( TRIM(clpath)//TRIM(clname), numriw, ldwrt = .TRUE., k iolib = jprstlib, kdlev = jpl )79 CALL iom_open( TRIM(clpath)//TRIM(clname), numriw, ldwrt = .TRUE., kdlev = jpl ) 83 80 lrst_ice = .TRUE. 84 81 ENDIF … … 175 172 LOGICAL :: llok 176 173 INTEGER :: id1 ! local integer 177 INTEGER :: jlibalt = jprstlib178 174 CHARACTER(len=25) :: znam 179 175 CHARACTER(len=2) :: zchar, zchar1 … … 188 184 ENDIF 189 185 190 CALL iom_open ( TRIM(cn_icerst_indir)//'/'//cn_icerst_in, numrir, k iolib = jprstlib, kdlev = jpl )186 CALL iom_open ( TRIM(cn_icerst_indir)//'/'//cn_icerst_in, numrir, kdlev = jpl ) 191 187 192 188 CALL iom_get( numrir, 'nn_fsbc', zfice )
Note: See TracChangeset
for help on using the changeset viewer.