- Timestamp:
- 2020-05-14T21:46:00+02:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser
- Property svn:externals
-
old new 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@HEAD sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/OCE/ICB/icbrst.F90
r12178 r12928 69 69 TYPE(point) :: localpt ! NOT a pointer but an actual local variable 70 70 !!---------------------------------------------------------------------- 71 72 71 ! Find a restart file. Assume iceberg restarts in same directory as ocean restarts 73 72 ! and are called TRIM(cn_ocerst)//'_icebergs' 74 cl_path = TRIM(cn_ ocerst_indir)73 cl_path = TRIM(cn_icbrst_indir) 75 74 IF( cl_path(LEN_TRIM(cl_path):) /= '/' ) cl_path = TRIM(cl_path) // '/' 76 cl_filename = TRIM(cn_ ocerst_in)//'_icebergs'75 cl_filename = TRIM(cn_icbrst_in) 77 76 CALL iom_open( TRIM(cl_path)//cl_filename, ncid ) 78 77 … … 192 191 CHARACTER(len=256) :: cl_path 193 192 CHARACTER(len=256) :: cl_filename 193 CHARACTER(len=256) :: cl_kt 194 194 TYPE(iceberg), POINTER :: this 195 195 TYPE(point) , POINTER :: pt … … 204 204 ! Only operate on the restart timestep itself. 205 205 ! Assume we write iceberg restarts to same directory as ocean restarts. 206 cl_path = TRIM(cn_ocerst_outdir) 206 ! 207 ! directory name 208 cl_path = TRIM(cn_icbrst_outdir) 207 209 IF( cl_path(LEN_TRIM(cl_path):) /= '/' ) cl_path = TRIM(cl_path) // '/' 210 ! 211 ! file name 212 WRITE(cl_kt, '(i8.8)') kt 213 cl_filename = TRIM(cexper)//"_"//TRIM(ADJUSTL(cl_kt))//"_"//TRIM(cn_icbrst_out) 208 214 IF( lk_mpp ) THEN 209 WRITE(cl_filename,'(A,"_ icebergs_",I8.8,"_restart_",I4.4,".nc")') TRIM(cexper), kt, narea-1215 WRITE(cl_filename,'(A,"_",I4.4,".nc")') TRIM(cl_filename), narea-1 210 216 ELSE 211 WRITE(cl_filename,'(A," _icebergs_",I8.8,"_restart.nc")') TRIM(cexper), kt217 WRITE(cl_filename,'(A,".nc")') TRIM(cl_filename) 212 218 ENDIF 219 213 220 IF ( lwp .AND. nn_verbose_level >= 0) WRITE(numout,'(2a)') 'icebergs, write_restart: creating ', & 214 221 & TRIM(cl_path)//TRIM(cl_filename)
Note: See TracChangeset
for help on using the changeset viewer.