- Timestamp:
- 2020-04-08T21:37:59+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev _r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF5 ^/vendors/AGRIF/dev@HEAD ext/AGRIF 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/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/ICB/icbrst.F90
r11536 r12724 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.