- Timestamp:
- 2019-12-12T13:15:13+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/SAO/nemogcm.F90
r12202 r12210 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 … … 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 ! … … 150 150 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist' ) 151 151 ! 152 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 153 171 ! 154 172 IF(lwp) THEN ! open listing units … … 182 200 ENDIF 183 201 ! 184 ! finalize the definition of namctl variables185 IF( sn_cfctl%l_config ) THEN186 ! Activate finer control of report outputs187 ! optionally switch off output from selected areas (note this only188 ! applies to output which does not involve global communications)189 IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax ) .OR. &190 & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) ) &191 & CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. )192 ELSE193 ! Use ln_ctl to turn on or off all options.194 CALL nemo_set_cfctl( sn_cfctl, ln_ctl, .TRUE. )195 ENDIF196 !197 202 IF(lwm) WRITE( numond, namctl ) 198 203 ! … … 237 242 238 243 239 IF( ln_ctl ) CALL prt_ctl_init ! Print control 240 241 CALL istate_init ! ocean initial state (Dynamics and tracers) 244 IF( sn_cfctl%l_prtctl ) & 245 & CALL prt_ctl_init ! Print control 246 247 CALL istate_init ! ocean initial state (Dynamics and tracers) 242 248 END SUBROUTINE nemo_init 243 249 … … 249 255 !! ** Purpose : control print setting 250 256 !! 251 !! ** Method : - print namctl information and check some consistencies257 !! ** Method : - print namctl and namcfg information and check some consistencies 252 258 !!---------------------------------------------------------------------- 253 259 ! … … 257 263 WRITE(numout,*) '~~~~~~~~' 258 264 WRITE(numout,*) ' Namelist namctl' 259 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 260 267 WRITE(numout,*) ' finer control over o/p sn_cfctl%l_config = ', sn_cfctl%l_config 261 268 WRITE(numout,*) ' sn_cfctl%l_runstat = ', sn_cfctl%l_runstat … … 263 270 WRITE(numout,*) ' sn_cfctl%l_oceout = ', sn_cfctl%l_oceout 264 271 WRITE(numout,*) ' sn_cfctl%l_layout = ', sn_cfctl%l_layout 265 WRITE(numout,*) ' sn_cfctl%l_mppout = ', sn_cfctl%l_mppout 266 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 267 275 WRITE(numout,*) ' sn_cfctl%procmin = ', sn_cfctl%procmin 268 276 WRITE(numout,*) ' sn_cfctl%procmax = ', sn_cfctl%procmax … … 302 310 ! ! Parameter control 303 311 ! 304 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 305 313 IF( lk_mpp .AND. jpnij > 1 ) THEN 306 314 isplt = jpni ; jsplt = jpnj ; ijsplt = jpni*jpnj ! the domain is forced to the real split domain … … 418 426 sn_cfctl%l_oceout = setto 419 427 sn_cfctl%l_layout = setto 420 sn_cfctl%l_mppout = setto 421 sn_cfctl%l_mpptop = setto 428 sn_cfctl%l_prtctl = setto 429 sn_cfctl%l_prttrc = setto 430 sn_cfctl%l_oasout = setto 422 431 END SUBROUTINE nemo_set_cfctl 423 432
Note: See TracChangeset
for help on using the changeset viewer.