Changeset 12377 for NEMO/trunk/src/SAO
- Timestamp:
- 2020-02-12T15:39:06+01:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEAD ext/AGRIF5 ^/vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/trunk/src/SAO/nemogcm.F90
r11536 r12377 91 91 INTEGER :: ios, ilocal_comm ! local integer 92 92 ! 93 NAMELIST/namctl/ ln_ctl , sn_cfctl, nn_print, nn_ictls, nn_ictle,&93 NAMELIST/namctl/ sn_cfctl, nn_print, nn_ictls, nn_ictle, & 94 94 & nn_isplt , nn_jsplt, nn_jctls, nn_jctle, & 95 95 & ln_timing, ln_diacfl … … 135 135 IF( lwm ) CALL ctl_opn( numout, 'ocean.output', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 136 136 ! open reference and configuration namelist files 137 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)138 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE.)137 CALL load_nml( numnam_ref, 'namelist_ref', -1, lwm ) 138 CALL load_nml( numnam_cfg, 'namelist_cfg', -1, lwm ) 139 139 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 140 140 ! open /dev/null file to be able to supress output write easily … … 142 142 ! 143 143 ! !--------------------! 144 ! ! Open listing units ! -> need ln_ctl from namctl to define lwp144 ! ! Open listing units ! -> need sn_cfctl from namctl to define lwp 145 145 ! !--------------------! 146 146 ! 147 REWIND( numnam_ref ) ! Namelist namctl in reference namelist148 147 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 149 148 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist' ) 150 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist151 149 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 152 150 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist' ) 153 151 ! 154 lwp = (narea == 1) .OR. ln_ctl ! control of all listing output print 152 ! finalize the definition of namctl variables 153 IF( sn_cfctl%l_allon ) THEN 154 ! Turn on all options. 155 CALL nemo_set_cfctl( sn_cfctl, .TRUE., .TRUE. ) 156 ! Ensure all processors are active 157 sn_cfctl%procmin = 0 ; sn_cfctl%procmax = 1000000 ; sn_cfctl%procincr = 1 158 ELSEIF( sn_cfctl%l_config ) THEN 159 ! Activate finer control of report outputs 160 ! optionally switch off output from selected areas (note this only 161 ! applies to output which does not involve global communications) 162 IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax ) .OR. & 163 & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) ) & 164 & CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 165 ELSE 166 ! turn off all options. 167 CALL nemo_set_cfctl( sn_cfctl, .FALSE., .TRUE. ) 168 ENDIF 169 ! 170 lwp = (narea == 1) .OR. sn_cfctl%l_oceout ! control of all listing output print 155 171 ! 156 172 IF(lwp) THEN ! open listing units … … 184 200 ENDIF 185 201 ! 186 ! finalize the definition of namctl variables187 IF( sn_cfctl%l_config ) THEN188 ! Activate finer control of report outputs189 ! optionally switch off output from selected areas (note this only190 ! applies to output which does not involve global communications)191 IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax ) .OR. &192 & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) ) &193 & CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. )194 ELSE195 ! Use ln_ctl to turn on or off all options.196 CALL nemo_set_cfctl( sn_cfctl, ln_ctl, .TRUE. )197 ENDIF198 !199 202 IF(lwm) WRITE( numond, namctl ) 200 203 ! … … 203 206 ! !------------------------------------! 204 207 ! 205 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist206 208 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 207 209 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist' ) 208 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist209 210 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 210 211 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist' ) … … 238 239 CALL phy_cst ! Physical constants 239 240 CALL eos_init ! Equation of state 240 CALL dom_init('SAO') ! Domain 241 242 243 IF( ln_ctl ) CALL prt_ctl_init ! Print control 244 245 CALL istate_init ! ocean initial state (Dynamics and tracers) 241 CALL dom_init( Nbb, Nnn, Naa, 'SAO') ! Domain 242 243 244 IF( sn_cfctl%l_prtctl ) & 245 & CALL prt_ctl_init ! Print control 246 247 CALL istate_init ! ocean initial state (Dynamics and tracers) 246 248 END SUBROUTINE nemo_init 247 249 … … 253 255 !! ** Purpose : control print setting 254 256 !! 255 !! ** Method : - print namctl information and check some consistencies257 !! ** Method : - print namctl and namcfg information and check some consistencies 256 258 !!---------------------------------------------------------------------- 257 259 ! … … 261 263 WRITE(numout,*) '~~~~~~~~' 262 264 WRITE(numout,*) ' Namelist namctl' 263 WRITE(numout,*) ' run control (for debugging) ln_ctl = ', ln_ctl 265 WRITE(numout,*) ' sn_cfctl%l_glochk = ', sn_cfctl%l_glochk 266 WRITE(numout,*) ' sn_cfctl%l_allon = ', sn_cfctl%l_allon 264 267 WRITE(numout,*) ' finer control over o/p sn_cfctl%l_config = ', sn_cfctl%l_config 265 268 WRITE(numout,*) ' sn_cfctl%l_runstat = ', sn_cfctl%l_runstat … … 267 270 WRITE(numout,*) ' sn_cfctl%l_oceout = ', sn_cfctl%l_oceout 268 271 WRITE(numout,*) ' sn_cfctl%l_layout = ', sn_cfctl%l_layout 269 WRITE(numout,*) ' sn_cfctl%l_mppout = ', sn_cfctl%l_mppout 270 WRITE(numout,*) ' sn_cfctl%l_mpptop = ', sn_cfctl%l_mpptop 272 WRITE(numout,*) ' sn_cfctl%l_prtctl = ', sn_cfctl%l_prtctl 273 WRITE(numout,*) ' sn_cfctl%l_prttrc = ', sn_cfctl%l_prttrc 274 WRITE(numout,*) ' sn_cfctl%l_oasout = ', sn_cfctl%l_oasout 271 275 WRITE(numout,*) ' sn_cfctl%procmin = ', sn_cfctl%procmin 272 276 WRITE(numout,*) ' sn_cfctl%procmax = ', sn_cfctl%procmax … … 306 310 ! ! Parameter control 307 311 ! 308 IF( ln_ctl ) THEN! sub-domain area indices for the control prints312 IF( sn_cfctl%l_prtctl .OR. sn_cfctl%l_prttrc ) THEN ! sub-domain area indices for the control prints 309 313 IF( lk_mpp .AND. jpnij > 1 ) THEN 310 314 isplt = jpni ; jsplt = jpnj ; ijsplt = jpni*jpnj ! the domain is forced to the real split domain … … 363 367 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 364 368 IF( numrun /= -1 ) CLOSE( numrun ) ! run statistics file 365 IF( numnam_ref /= -1 ) CLOSE( numnam_ref ) ! oce reference namelist366 IF( numnam_cfg /= -1 ) CLOSE( numnam_cfg ) ! oce configuration namelist367 369 IF( lwm.AND.numond /= -1 ) CLOSE( numond ) ! oce output namelist 368 IF( numnam_ice_ref /= -1 ) CLOSE( numnam_ice_ref ) ! ice reference namelist369 IF( numnam_ice_cfg /= -1 ) CLOSE( numnam_ice_cfg ) ! ice configuration namelist370 370 IF( lwm.AND.numoni /= -1 ) CLOSE( numoni ) ! ice output namelist 371 371 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution) … … 426 426 sn_cfctl%l_oceout = setto 427 427 sn_cfctl%l_layout = setto 428 sn_cfctl%l_mppout = setto 429 sn_cfctl%l_mpptop = setto 428 sn_cfctl%l_prtctl = setto 429 sn_cfctl%l_prttrc = setto 430 sn_cfctl%l_oasout = setto 430 431 END SUBROUTINE nemo_set_cfctl 431 432 -
NEMO/trunk/src/SAO/sao_data.F90
r11536 r12377 52 52 53 53 ! Standard offline obs_oper settings 54 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark55 54 READ ( numnam_ref, namsao, IOSTAT = ios, ERR = 901 ) 56 55 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsao in reference namelist' ) 57 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist : Control prints & Benchmark58 56 READ ( numnam_cfg, namsao, IOSTAT = ios, ERR = 902 ) 59 57 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsao in configuration namelist' )
Note: See TracChangeset
for help on using the changeset viewer.