Changeset 4846 for branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/ooo_data.F90
- Timestamp:
- 2014-11-12T15:02:36+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/ooo_data.F90
r4844 r4846 30 30 & cl4_leadtime(MaxNumFiles) !: Lead time data 31 31 32 !! Offline obs_oper settings32 !! Stand Alone Observation operator settings 33 33 CHARACTER(len=lc) :: & 34 & ooo_files(MaxNumFiles) !: model files34 & sao_files(MaxNumFiles) !: model files 35 35 INTEGER :: & 36 36 & jifile, & !: current file list index 37 37 & n_files, & !: number of files 38 38 & jimatch, & !: current match 39 & nn_ ooo_idx(MaxNumFiles), & !: time_counter indices40 & nn_ ooo_freq !: read frequency in time steps39 & nn_sao_idx(MaxNumFiles), & !: time_counter indices 40 & nn_sao_freq !: read frequency in time steps 41 41 CHARACTER(len=128) :: & 42 42 & alt_file !: altimeter file … … 57 57 58 58 ! Standard offline obs_oper information 59 NAMELIST/nam ooo/ooo_files, nn_ooo_idx, nn_ooo_freq59 NAMELIST/namsao/sao_files, nn_sao_idx, nn_sao_freq 60 60 61 61 ! Class 4 file specifiers … … 68 68 jifile = 1 !: input file iteration variable 69 69 n_files = 0 !: number of files to cycle through 70 ooo_files(:) = '' !: list of files to read in71 nn_ ooo_idx(:) = 0 !: list of indices inside each file72 nn_ ooo_freq = -1 !: input frequency in time steps70 sao_files(:) = '' !: list of files to read in 71 nn_sao_idx(:) = 0 !: list of indices inside each file 72 nn_sao_freq = -1 !: input frequency in time steps 73 73 74 74 ! Class 4 initialisation … … 88 88 ! Standard offline obs_oper settings 89 89 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark 90 READ ( numnam_ref, nam ooo, IOSTAT = ios, ERR = 901 )91 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam ooo in reference namelist', .TRUE. )90 READ ( numnam_ref, namsao, IOSTAT = ios, ERR = 901 ) 91 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsao in reference namelist', .TRUE. ) 92 92 93 93 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist : Control prints & Benchmark 94 READ ( numnam_cfg, nam ooo, IOSTAT = ios, ERR = 902 )95 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam ooo in configuration namelist', .TRUE. )94 READ ( numnam_cfg, namsao, IOSTAT = ios, ERR = 902 ) 95 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsao in configuration namelist', .TRUE. ) 96 96 97 97 ! Read class 4 output settings … … 108 108 ! count input files 109 109 lmask(:) = .FALSE. 110 WHERE ( ooo_files(:) /= '') lmask(:) = .TRUE.110 WHERE (sao_files(:) /= '') lmask(:) = .TRUE. 111 111 n_files = COUNT(lmask) 112 112 113 113 !! Initialise sub obs window frequency 114 IF (nn_ ooo_freq == -1) THEN114 IF (nn_sao_freq == -1) THEN 115 115 !! Run length 116 nn_ ooo_freq = nitend - nit000 + 1116 nn_sao_freq = nitend - nit000 + 1 117 117 ENDIF 118 118 … … 122 122 WRITE(numout,*) 'offline obs_oper : Initialization' 123 123 WRITE(numout,*) '~~~~~~~~~~~~~~~~~' 124 WRITE(numout,*) ' Namelist nam ooo : set offline obs_oper parameters'124 WRITE(numout,*) ' Namelist namsao : set stand alone obs_oper parameters' 125 125 DO jf = 1, n_files 126 126 WRITE(numout,'(1X,2A)') ' Input forecast file name forecastfile = ', & 127 TRIM( ooo_files(jf))127 TRIM(sao_files(jf)) 128 128 WRITE(numout,*) ' Input forecast file index forecastindex = ', & 129 nn_ ooo_idx(jf)129 nn_sao_idx(jf) 130 130 WRITE(numout,*) ' Output forecast leadtime index leadtimeindex = ', & 131 131 cl4_fcst_idx(jf)
Note: See TracChangeset
for help on using the changeset viewer.