- Timestamp:
- 2020-07-01T15:42:06+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3
- Property svn:externals
-
old new 8 8 9 9 # SETTE 10 ^/utils/CI/sette@ HEADsette10 ^/utils/CI/sette@12931 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/SAO/nemogcm.F90
r12724 r13193 158 158 ! 159 159 ! finalize the definition of namctl variables 160 IF( sn_cfctl%l_allon ) THEN 161 ! Turn on all options. 162 CALL nemo_set_cfctl( sn_cfctl, .TRUE., .TRUE. ) 163 ! Ensure all processors are active 164 sn_cfctl%procmin = 0 ; sn_cfctl%procmax = 1000000 ; sn_cfctl%procincr = 1 165 ELSEIF( sn_cfctl%l_config ) THEN 166 ! Activate finer control of report outputs 167 ! optionally switch off output from selected areas (note this only 168 ! applies to output which does not involve global communications) 169 IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax ) .OR. & 170 & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) ) & 171 & CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 172 ELSE 173 ! turn off all options. 174 CALL nemo_set_cfctl( sn_cfctl, .FALSE., .TRUE. ) 175 ENDIF 160 IF( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax .OR. MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) & 161 & CALL nemo_set_cfctl( sn_cfctl, .FALSE. ) 176 162 ! 177 163 lwp = (narea == 1) .OR. sn_cfctl%l_oceout ! control of all listing output print … … 270 256 WRITE(numout,*) '~~~~~~~~' 271 257 WRITE(numout,*) ' Namelist namctl' 272 WRITE(numout,*) ' sn_cfctl%l_glochk = ', sn_cfctl%l_glochk273 WRITE(numout,*) ' sn_cfctl%l_allon = ', sn_cfctl%l_allon274 WRITE(numout,*) ' finer control over o/p sn_cfctl%l_config = ', sn_cfctl%l_config275 258 WRITE(numout,*) ' sn_cfctl%l_runstat = ', sn_cfctl%l_runstat 276 259 WRITE(numout,*) ' sn_cfctl%l_trcstat = ', sn_cfctl%l_trcstat … … 410 393 END SUBROUTINE nemo_alloc 411 394 412 SUBROUTINE nemo_set_cfctl(sn_cfctl, setto , for_all)395 SUBROUTINE nemo_set_cfctl(sn_cfctl, setto ) 413 396 !!---------------------------------------------------------------------- 414 397 !! *** ROUTINE nemo_set_cfctl *** 415 398 !! 416 399 !! ** Purpose : Set elements of the output control structure to setto. 417 !! for_all should be .false. unless all areas are to be418 !! treated identically.419 400 !! 420 401 !! ** Method : Note this routine can be used to switch on/off some 421 !! types of output for selected areas but any output types 422 !! that involve global communications (e.g. mpp_max, glob_sum) 423 !! should be protected from selective switching by the 424 !! for_all argument 425 !!---------------------------------------------------------------------- 426 LOGICAL :: setto, for_all 427 TYPE(sn_ctl) :: sn_cfctl 428 !!---------------------------------------------------------------------- 429 IF( for_all ) THEN 430 sn_cfctl%l_runstat = setto 431 sn_cfctl%l_trcstat = setto 432 ENDIF 402 !! types of output for selected areas. 403 !!---------------------------------------------------------------------- 404 TYPE(sn_ctl), INTENT(inout) :: sn_cfctl 405 LOGICAL , INTENT(in ) :: setto 406 !!---------------------------------------------------------------------- 407 sn_cfctl%l_runstat = setto 408 sn_cfctl%l_trcstat = setto 433 409 sn_cfctl%l_oceout = setto 434 410 sn_cfctl%l_layout = setto
Note: See TracChangeset
for help on using the changeset viewer.