Changeset 4775
- Timestamp:
- 2014-09-18T19:06:14+02:00 (10 years ago)
- Location:
- branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM
- Files:
-
- 13 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/CONFIG/SHARED/1_namelist_ref
r4698 r4775 36 36 ! = 2 nn_date0 read in restart ; nn_it000 : check consistancy between namelist and restart 37 37 cn_ocerst_in = "restart" ! suffix of ocean restart name (input) 38 cn_ocerst_indir = "." ! directory from which to read input ocean restarts 38 39 cn_ocerst_out = "restart" ! suffix of ocean restart name (output) 40 cn_ocerst_outdir = "." ! directory in which to write output ocean restarts 39 41 nn_istate = 0 ! output the initial state (1) or not (0) 40 42 nn_stock = 5475 ! frequency of creation of a restart file (modulo referenced to 1) -
branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/CONFIG/SHARED/namelist_ice_lim2_ref
r4329 r4775 14 14 !----------------------------------------------------------------------- 15 15 cn_icerst_in = "restart_ice_in" ! suffix of ice restart name (input) 16 cn_icerst_indir = "." ! directory from which to read input ice restarts 16 17 cn_icerst_out = "restart_ice" ! suffix of ice restart name (output) 18 cn_icerst_outdir = "." ! directory in which to write output ice restarts 17 19 ln_limdyn = .true. ! ice dynamics (T) or thermodynamics only (F) 18 20 ln_limdmp = .false. ! restoring ice thickness and fraction leads (T => fill namice_dmp) -
branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/CONFIG/SHARED/namelist_ice_lim3_ref
r4690 r4775 15 15 !----------------------------------------------------------------------- 16 16 cn_icerst_in = "restart_ice" ! suffix of ice restart name (input) 17 cn_icerst_indir = "." ! directory from which to read input ice restarts 17 18 cn_icerst_out = "restart_ice" ! suffix of ice restart name (output) 19 cn_icerst_outdir = "." ! directory in which to write output ice restarts 18 20 ln_limdyn = .true. ! ice dynamics (T) or thermodynamics only (F) 19 21 amax = 0.999 ! maximum ice concentration -
branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/CONFIG/SHARED/namelist_ref
r4699 r4775 37 37 ! = 2 nn_date0 read in restart ; nn_it000 : check consistancy between namelist and restart 38 38 cn_ocerst_in = "restart" ! suffix of ocean restart name (input) 39 cn_ocerst_indir = "." ! directory from which to read input ocean restarts 39 40 cn_ocerst_out = "restart" ! suffix of ocean restart name (output) 41 cn_ocerst_outdir = "." ! directory in which to write output ocean restarts 40 42 nn_istate = 0 ! output the initial state (1) or not (0) 41 43 nn_stock = 5475 ! frequency of creation of a restart file (modulo referenced to 1) -
branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/LIM_SRC_2/ice_2.F90
r4306 r4775 24 24 ! !!* namicerun read in iceini * 25 25 CHARACTER(len=32) , PUBLIC :: cn_icerst_in !: suffix of ice restart name (input) 26 CHARACTER(len=200) , PUBLIC :: cn_icerst_indir !: ice restart in directory 26 27 CHARACTER(len=32) , PUBLIC :: cn_icerst_out !: suffix of ice restart name (output) 28 CHARACTER(len=200) , PUBLIC :: cn_icerst_outdir !: ice restart out directory 27 29 LOGICAL , PUBLIC :: ln_limdyn !: flag for ice dynamics (T) or not (F) 28 30 LOGICAL , PUBLIC :: ln_limdmp !: Ice damping -
branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90
r4624 r4775 123 123 !! ** input : Namelist namicerun 124 124 !!------------------------------------------------------------------- 125 NAMELIST/namicerun/ cn_icerst_in, cn_icerst_out, ln_limdyn, ln_limdmp, acrit, hsndif, hicdif 125 NAMELIST/namicerun/ cn_icerst_in, cn_icerst_indir, cn_icerst_out, cn_icerst_outdir, & 126 ln_limdyn, ln_limdmp, acrit, hsndif, hicdif 126 127 INTEGER :: ios ! Local integer output status for namelist read 127 128 !!------------------------------------------------------------------- -
branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/LIM_SRC_2/limrst_2.F90
r2528 r4775 50 50 CHARACTER(LEN=20) :: clkt ! ocean time-step deine as a character 51 51 CHARACTER(LEN=50) :: clname ! ice output restart file name 52 CHARACTER(len=150) :: clpath ! full path to ice output restart file 52 53 !!---------------------------------------------------------------------- 53 54 ! … … 64 65 ! create the file 65 66 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_"//TRIM(cn_icerst_out) 67 clpath = TRIM(cn_icerst_outdir) 68 IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath)//'/' 66 69 IF(lwp) THEN 67 70 WRITE(numout,*) 68 71 SELECT CASE ( jprstlib ) 69 CASE ( jprstdimg ) ; WRITE(numout,*) ' open ice restart binary file: '//clname 70 CASE DEFAULT ; WRITE(numout,*) ' open ice restart NetCDF file: '//clname 72 CASE ( jprstdimg ) 73 WRITE(numout,*) ' open ice restart binary file: ',TRIM(clpath)//clname 74 CASE DEFAULT 75 WRITE(numout,*) ' open ice restart NetCDF file: ',TRIM(clpath)//clname 71 76 END SELECT 72 77 IF( kt == nitrst - 2*nn_fsbc + 1 ) THEN … … 76 81 ENDIF 77 82 78 CALL iom_open( clname, numriw, ldwrt = .TRUE., kiolib = jprstlib )83 CALL iom_open( TRIM(clpath)//TRIM(clname), numriw, ldwrt = .TRUE., kiolib = jprstlib ) 79 84 lrst_ice = .TRUE. 80 85 ENDIF … … 188 193 ! eventually read netcdf file (monobloc) for restarting on different number of processors 189 194 ! if {cn_icerst_in}.nc exists, then set jlibalt to jpnf90 190 INQUIRE( FILE = TRIM(cn_icerst_in )//'.nc', EXIST = llok )195 INQUIRE( FILE = TRIM(cn_icerst_indir)//'/'//TRIM(cn_icerst_in)//'.nc', EXIST = llok ) 191 196 IF ( llok ) THEN ; jlibalt = jpnf90 ; ELSE ; jlibalt = jprstlib ; ENDIF 192 197 ENDIF 193 198 194 CALL iom_open ( cn_icerst_in, numrir, kiolib = jlibalt )199 CALL iom_open ( TRIM(cn_icerst_indir)//'/'//TRIM(cn_icerst_in), numrir, kiolib = jlibalt ) 195 200 196 201 CALL iom_get( numrir, 'kt_ice' , ziter ) -
branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/LIM_SRC_3/ice.F90
r4688 r4775 393 393 ! !!: ** Namelist namicerun read in iceini ** 394 394 CHARACTER(len=32) , PUBLIC :: cn_icerst_in !: suffix of ice restart name (input) 395 CHARACTER(len=200) , PUBLIC :: cn_icerst_indir !: ice restart input directory 395 396 CHARACTER(len=32) , PUBLIC :: cn_icerst_out !: suffix of ice restart name (output) 397 CHARACTER(len=200) , PUBLIC :: cn_icerst_outdir!: ice restart output directory 396 398 LOGICAL , PUBLIC :: ln_limdyn !: flag for ice dynamics (T) or not (F) 397 399 LOGICAL , PUBLIC :: ln_nicep !: flag for sea-ice points output (T) or not (F) -
branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/LIM_SRC_3/limrst.F90
r4688 r4775 55 55 CHARACTER(LEN=20) :: clkt ! ocean time-step define as a character 56 56 CHARACTER(LEN=50) :: clname ! ice output restart file name 57 CHARACTER(len=150) :: clpath ! full path to ice output restart file 57 58 !!---------------------------------------------------------------------- 58 59 ! … … 70 71 ! create the file 71 72 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_"//TRIM(cn_icerst_out) 73 clpath = TRIM(cn_icerst_outdir) 74 IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath)//'/' 72 75 IF(lwp) THEN 73 76 WRITE(numout,*) 74 77 SELECT CASE ( jprstlib ) 75 CASE ( jprstdimg ) ; WRITE(numout,*) ' open ice restart binary file: '//clname 76 CASE DEFAULT ; WRITE(numout,*) ' open ice restart NetCDF file: '//clname 78 CASE ( jprstdimg ) 79 WRITE(numout,*) ' open ice restart binary file: ',TRIM(clpath)//clname 80 CASE DEFAULT 81 WRITE(numout,*) ' open ice restart NetCDF file: ',TRIM(clpath)//clname 77 82 END SELECT 78 83 IF( kt == nitrst - 2*nn_fsbc + 1 ) THEN … … 82 87 ENDIF 83 88 ! 84 CALL iom_open( clname, numriw, ldwrt = .TRUE., kiolib = jprstlib )89 CALL iom_open( TRIM(clpath)//TRIM(clname), numriw, ldwrt = .TRUE., kiolib = jprstlib ) 85 90 lrst_ice = .TRUE. 86 91 ENDIF … … 142 147 CALL iom_rstput( iter, nitrst, numriw, znam , z2d ) 143 148 END DO 144 149 145 150 DO jl = 1, jpl 146 151 WRITE(zchar,'(I1)') jl … … 329 334 ! eventually read netcdf file (monobloc) for restarting on different number of processors 330 335 ! if {cn_icerst_in}.nc exists, then set jlibalt to jpnf90 331 INQUIRE( FILE = TRIM(cn_icerst_in )//'.nc', EXIST = llok )336 INQUIRE( FILE = TRIM(cn_icerst_indir)//'/'//TRIM(cn_icerst_in)//'.nc', EXIST = llok ) 332 337 IF ( llok ) THEN ; jlibalt = jpnf90 ; ELSE ; jlibalt = jprstlib ; ENDIF 333 338 ENDIF 334 339 335 CALL iom_open ( cn_icerst_in, numrir, kiolib = jprstlib )340 CALL iom_open ( TRIM(cn_icerst_indir)//'/'//cn_icerst_in, numrir, kiolib = jprstlib ) 336 341 337 342 CALL iom_get( numrir, 'nn_fsbc', zfice ) -
branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r4624 r4775 135 135 !!---------------------------------------------------------------------- 136 136 USE ioipsl 137 NAMELIST/namrun/ nn_no , cn_exp , cn_ocerst_in, cn_ocerst_out, ln_rstart , nn_rstctl, & 137 NAMELIST/namrun/ cn_ocerst_indir, cn_ocerst_outdir, & 138 & nn_no , cn_exp , cn_ocerst_in, cn_ocerst_out, ln_rstart , nn_rstctl, & 138 139 & nn_it000, nn_itend , nn_date0 , nn_leapy , nn_istate , nn_stock , & 139 140 & nn_write, ln_dimgnnn, ln_mskland , ln_clobber , nn_chunksz, nn_euler … … 169 170 WRITE(numout,*) ' experiment name for output cn_exp = ', cn_exp 170 171 WRITE(numout,*) ' file prefix restart input cn_ocerst_in= ', cn_ocerst_in 172 WRITE(numout,*) ' restart input directory cn_ocerst_indir= ', cn_ocerst_indir 171 173 WRITE(numout,*) ' file prefix restart output cn_ocerst_out= ', cn_ocerst_out 174 WRITE(numout,*) ' restart output directory cn_ocerst_outdir= ', cn_ocerst_outdir 172 175 WRITE(numout,*) ' restart logical ln_rstart = ', ln_rstart 173 176 WRITE(numout,*) ' start with forward time step nn_euler = ', nn_euler -
branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90
r4624 r4775 26 26 CHARACTER(lc) :: cn_exp !: experiment name used for output filename 27 27 CHARACTER(lc) :: cn_ocerst_in !: suffix of ocean restart name (input) 28 CHARACTER(lc) :: cn_ocerst_indir !: restart input directory 28 29 CHARACTER(lc) :: cn_ocerst_out !: suffix of ocean restart name (output) 30 CHARACTER(lc) :: cn_ocerst_outdir !: restart output directory 29 31 LOGICAL :: ln_rstart !: start from (F) rest or (T) a restart file 30 32 INTEGER :: nn_no !: job number -
branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90
r4689 r4775 61 61 INTEGER, DIMENSION(2,5), INTENT(in ), OPTIONAL :: kdompar ! domain parameters: 62 62 63 CHARACTER(LEN= 100) :: clinfo ! info character64 CHARACTER(LEN= 100) :: cltmp ! temporary character63 CHARACTER(LEN=256) :: clinfo ! info character 64 CHARACTER(LEN=256) :: cltmp ! temporary character 65 65 INTEGER :: iln ! lengths of character 66 66 INTEGER :: istop ! temporary storage of nstop … … 393 393 INTEGER, DIMENSION(4) :: idimsz ! dimensions size 394 394 INTEGER, DIMENSION(4) :: idimid ! dimensions id 395 CHARACTER(LEN= 100) :: clinfo ! info character395 CHARACTER(LEN=256) :: clinfo ! info character 396 396 CHARACTER(LEN= 12), DIMENSION(4) :: cltmp ! temporary character 397 397 INTEGER :: if90id ! nf90 file identifier -
branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r4693 r4775 57 57 !! 58 58 CHARACTER(LEN=20) :: clkt ! ocean time-step deine as a character 59 CHARACTER(LEN=50) :: clname ! ice output restart file name 59 CHARACTER(LEN=50) :: clname ! ocean output restart file name 60 CHARACTER(len=150) :: clpath ! full path to ocean output restart file 60 61 !!---------------------------------------------------------------------- 61 62 ! … … 79 80 ! create the file 80 81 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_"//TRIM(cn_ocerst_out) 82 clpath = TRIM(cn_ocerst_outdir) 83 IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/' 81 84 IF(lwp) THEN 82 85 WRITE(numout,*) 83 86 SELECT CASE ( jprstlib ) 84 CASE ( jprstdimg ) ; WRITE(numout,*) ' open ocean restart binary file: '//clname 85 CASE DEFAULT ; WRITE(numout,*) ' open ocean restart NetCDF file: '//clname 87 CASE ( jprstdimg ) ; WRITE(numout,*) & 88 ' open ocean restart binary file: ',TRIM(clpath)//clname 89 CASE DEFAULT ; WRITE(numout,*) & 90 ' open ocean restart NetCDF file: ',TRIM(clpath)//clname 86 91 END SELECT 87 92 IF ( snc4set%luse ) WRITE(numout,*) ' opened for NetCDF4 chunking and compression' … … 91 96 ENDIF 92 97 ! 93 CALL iom_open( clname, numrow, ldwrt = .TRUE., kiolib = jprstlib )98 CALL iom_open( TRIM(clpath)//TRIM(clname), numrow, ldwrt = .TRUE., kiolib = jprstlib ) 94 99 lrst_oce = .TRUE. 95 100 ENDIF … … 171 176 ! eventually read netcdf file (monobloc) for restarting on different number of processors 172 177 ! if {cn_ocerst_in}.nc exists, then set jlibalt to jpnf90 173 INQUIRE( FILE = TRIM(cn_ocerst_in )//'.nc', EXIST = llok )178 INQUIRE( FILE = TRIM(cn_ocerst_indir)//'/'//TRIM(cn_ocerst_in)//'.nc', EXIST = llok ) 174 179 IF ( llok ) THEN ; jlibalt = jpnf90 ; ELSE ; jlibalt = jprstlib ; ENDIF 175 180 ENDIF 176 CALL iom_open( cn_ocerst_in, numror, kiolib = jlibalt )181 CALL iom_open( TRIM(cn_ocerst_indir)//'/'//cn_ocerst_in, numror, kiolib = jlibalt ) 177 182 ENDIF 178 183 END SUBROUTINE rst_read_open
Note: See TracChangeset
for help on using the changeset viewer.