Changeset 12835 for NEMO/branches/2020/r12581_ticket2418/tests
- Timestamp:
- 2020-04-30T08:55:37+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r12581_ticket2418/tests/STATION_ASF/MY_SRC/nemogcm.F90
r12655 r12835 184 184 ! 185 185 ! finalize the definition of namctl variables 186 IF( sn_cfctl%l_allon ) THEN 187 ! Turn on all options. 188 CALL nemo_set_cfctl( sn_cfctl, .TRUE., .TRUE. ) 189 ! Ensure all processors are active 190 sn_cfctl%procmin = 0 ; sn_cfctl%procmax = 1000000 ; sn_cfctl%procincr = 1 191 ELSEIF( sn_cfctl%l_config ) THEN 192 ! Activate finer control of report outputs 193 ! optionally switch off output from selected areas (note this only 194 ! applies to output which does not involve global communications) 195 IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax ) .OR. & 196 & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) ) & 197 & CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 198 ELSE 199 ! turn off all options. 200 CALL nemo_set_cfctl( sn_cfctl, .FALSE., .TRUE. ) 201 ENDIF 186 IF( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax .OR. MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) & 187 & CALL nemo_set_cfctl( sn_cfctl, .FALSE. ) 202 188 ! 203 189 lwp = (narea == 1) .OR. sn_cfctl%l_oceout ! control of all listing output print … … 308 294 WRITE(numout,*) '~~~~~~~~' 309 295 WRITE(numout,*) ' Namelist namctl' 310 WRITE(numout,*) ' sn_cfctl%l_allon = ', sn_cfctl%l_allon311 WRITE(numout,*) ' finer control over o/p sn_cfctl%l_config = ', sn_cfctl%l_config312 296 WRITE(numout,*) ' sn_cfctl%l_runstat = ', sn_cfctl%l_runstat 313 297 WRITE(numout,*) ' sn_cfctl%l_trcstat = ', sn_cfctl%l_trcstat … … 445 429 446 430 447 SUBROUTINE nemo_set_cfctl(sn_cfctl, setto , for_all)431 SUBROUTINE nemo_set_cfctl(sn_cfctl, setto ) 448 432 !!---------------------------------------------------------------------- 449 433 !! *** ROUTINE nemo_set_cfctl *** 450 434 !! 451 435 !! ** Purpose : Set elements of the output control structure to setto. 452 !! for_all should be .false. unless all areas are to be453 !! treated identically.454 436 !! 455 437 !! ** Method : Note this routine can be used to switch on/off some 456 !! types of output for selected areas but any output types 457 !! that involve global communications (e.g. mpp_max, glob_sum) 458 !! should be protected from selective switching by the 459 !! for_all argument 460 !!---------------------------------------------------------------------- 461 LOGICAL :: setto, for_all 462 TYPE(sn_ctl) :: sn_cfctl 463 !!---------------------------------------------------------------------- 464 IF( for_all ) THEN 465 sn_cfctl%l_runstat = setto 466 sn_cfctl%l_trcstat = setto 467 ENDIF 438 !! types of output for selected areas. 439 !!---------------------------------------------------------------------- 440 TYPE(sn_ctl), INTENT(inout) :: sn_cfctl 441 LOGICAL , INTENT(in ) :: setto 442 !!---------------------------------------------------------------------- 443 sn_cfctl%l_runstat = setto 444 sn_cfctl%l_trcstat = setto 468 445 sn_cfctl%l_oceout = setto 469 446 sn_cfctl%l_layout = setto
Note: See TracChangeset
for help on using the changeset viewer.