Changeset 4117 for branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO
- Timestamp:
- 2013-10-23T22:32:11+02:00 (11 years ago)
- Location:
- branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/namelist
r4095 r4117 3 3 ! namoff Offline obs_oper namelist 4 4 !---------------------------------------------------------------------- 5 ! o ff_files specifies the files containing the model counterpart6 ! nn_o ff_idx specifies the index within the model file7 ! nn_o ff_freq specifies the number of timesteps between file reads5 ! ooo_files specifies the files containing the model counterpart 6 ! nn_ooo_idx specifies the index within the model file 7 ! nn_ooo_freq specifies the number of timesteps between file reads 8 8 &namoff 9 o ff_files = 'fcst.0.nc'10 nn_o ff_idx = 19 ooo_files = 'fcst.0.nc' 10 nn_ooo_idx = 1 11 11 / 12 12 !---------------------------------------------------------------------- -
branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/obs_fbm.F90
r4110 r4117 1564 1564 !! ** Purpose : Write an obfbdata structure into a class 4 file. 1565 1565 !! 1566 !! ** Method : 1. Allocate memory needed by o ff_wri1566 !! ** Method : 1. Allocate memory needed by ooo_write 1567 1567 !! 2. Map obfbdata into allocated memory 1568 !! 3. Pass mapped data to o ff_wri1568 !! 3. Pass mapped data to ooo_write 1569 1569 !! 4. Deallocate memory 1570 1570 !!---------------------------------------------------------------------- -
branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/ooo_data.F90
r4110 r4117 31 31 !! Offline obs_oper settings 32 32 CHARACTER(len=lc) :: & 33 & o ff_files(MaxNumFiles) !: model files33 & ooo_files(MaxNumFiles) !: model files 34 34 INTEGER :: & 35 35 & jifile, & !: current file list index 36 36 & n_files, & !: number of files 37 37 & jimatch, & !: current match 38 & nn_o ff_idx(MaxNumFiles), & !: time_counter indices39 & nn_o ff_freq !: read frequency in time steps38 & nn_ooo_idx(MaxNumFiles), & !: time_counter indices 39 & nn_ooo_freq !: read frequency in time steps 40 40 CHARACTER(len=128) :: & 41 41 & alt_file !: altimeter file … … 55 55 56 56 ! Standard offline obs_oper information 57 NAMELIST/namoff/o ff_files, nn_off_idx, nn_off_freq57 NAMELIST/namoff/ooo_files, nn_ooo_idx, nn_ooo_freq 58 58 59 59 ! Class 4 file specifiers … … 66 66 jifile = 1 !: input file iteration variable 67 67 n_files = 0 !: number of files to cycle through 68 o ff_files(:) = '' !: list of files to read in69 nn_o ff_idx(:) = 0 !: list of indices inside each file70 nn_o ff_freq = -1 !: input frequency in time steps68 ooo_files(:) = '' !: list of files to read in 69 nn_ooo_idx(:) = 0 !: list of indices inside each file 70 nn_ooo_freq = -1 !: input frequency in time steps 71 71 72 72 ! Class 4 initialisation … … 94 94 ! count input files 95 95 lmask(:) = .FALSE. 96 WHERE (o ff_files(:) /= '') lmask(:) = .TRUE.96 WHERE (ooo_files(:) /= '') lmask(:) = .TRUE. 97 97 n_files = COUNT(lmask) 98 98 99 99 !! Initialise sub obs window frequency 100 IF (nn_o ff_freq == -1) THEN100 IF (nn_ooo_freq == -1) THEN 101 101 !! Run length 102 nn_o ff_freq = nitend - nit000 + 1102 nn_ooo_freq = nitend - nit000 + 1 103 103 ENDIF 104 104 … … 111 111 DO jf = 1, n_files 112 112 WRITE(numout,'(1X,2A)') ' Input forecast file name forecastfile = ', & 113 TRIM(o ff_files(jf))113 TRIM(ooo_files(jf)) 114 114 WRITE(numout,*) ' Input forecast file index forecastindex = ', & 115 nn_o ff_idx(jf)115 nn_ooo_idx(jf) 116 116 WRITE(numout,*) ' Output forecast leadtime index leadtimeindex = ', & 117 117 cl4_fcst_idx(jf) -
branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/ooo_read.F90
r4110 r4117 42 42 43 43 !! Filename, index and match-up kind 44 cdfilename = TRIM(o ff_files(kfile))44 cdfilename = TRIM(ooo_files(kfile)) 45 45 cmatchname = TRIM(cl4_vars(kfile)) 46 kindex = nn_o ff_idx(kfile)46 kindex = nn_ooo_idx(kfile) 47 47 48 48 !! Update model fields -
branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/ooomod.F90
r4110 r4117 75 75 DO WHILE ( istp <= nitend .AND. nstop == 0 ) 76 76 IF (jifile <= n_files + 1) THEN 77 IF ( MOD(istp, nn_o ff_freq) == nit000 ) THEN77 IF ( MOD(istp, nn_ooo_freq) == nit000 ) THEN 78 78 !! Read next model counterpart 79 79 CALL ooo_rea_dri(jifile)
Note: See TracChangeset
for help on using the changeset viewer.