- Timestamp:
- 2020-05-15T19:41:01+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo
- 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_r12558_HPC-08_epico_Extra_Halo/src/OCE/nemogcm.F90
r12807 r12939 84 84 #endif 85 85 ! 86 USE in_out_manager ! I/O manager 86 87 USE lib_mpp ! distributed memory computing 87 88 USE mppini ! shared/distributed memory setting (mpp_init routine) … … 186 187 END DO 187 188 ! 188 IF( .NOT. Agrif_Root() ) THEN189 CALL Agrif_ParentGrid_To_ChildGrid()190 IF( ln_diaobs ) CALL dia_obs_wri191 IF( ln_timing ) CALL timing_finalize192 CALL Agrif_ChildGrid_To_ParentGrid()193 ENDIF194 !195 189 # else 196 190 ! … … 237 231 IF( nstop /= 0 .AND. lwp ) THEN ! error print 238 232 WRITE(ctmp1,*) ' ==>>> nemo_gcm: a total of ', nstop, ' errors have been found' 239 CALL ctl_stop( ctmp1 ) 233 IF( ngrdstop > 0 ) THEN 234 WRITE(ctmp9,'(i2)') ngrdstop 235 WRITE(ctmp2,*) ' ==>>> Error detected in Agrif grid '//TRIM(ctmp9) 236 WRITE(ctmp3,*) ' ==>>> look for error messages in '//TRIM(ctmp9)//'_ocean_output* files' 237 CALL ctl_stop( ctmp1, ctmp2, ctmp3 ) 238 ELSE 239 CALL ctl_stop( ctmp1 ) 240 ENDIF 240 241 ENDIF 241 242 ! … … 319 320 IF( lwm ) CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 320 321 ! open /dev/null file to be able to supress output write easily 322 IF( Agrif_Root() ) THEN 321 323 CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, -1, .FALSE. ) 322 ! 324 #ifdef key_agrif 325 ELSE 326 numnul = Agrif_Parent(numnul) 327 #endif 328 ENDIF 323 329 ! !--------------------! 324 330 ! ! Open listing units ! -> need sn_cfctl from namctl to define lwp … … 331 337 ! 332 338 ! finalize the definition of namctl variables 333 IF( sn_cfctl%l_allon ) THEN 334 ! Turn on all options. 335 CALL nemo_set_cfctl( sn_cfctl, .TRUE., .TRUE. ) 336 ! Ensure all processors are active 337 sn_cfctl%procmin = 0 ; sn_cfctl%procmax = 1000000 ; sn_cfctl%procincr = 1 338 ELSEIF( sn_cfctl%l_config ) THEN 339 ! Activate finer control of report outputs 340 ! optionally switch off output from selected areas (note this only 341 ! applies to output which does not involve global communications) 342 IF( ( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax ) .OR. & 343 & ( MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) ) & 344 & CALL nemo_set_cfctl( sn_cfctl, .FALSE., .FALSE. ) 345 ELSE 346 ! turn off all options. 347 CALL nemo_set_cfctl( sn_cfctl, .FALSE., .TRUE. ) 348 ENDIF 339 IF( narea < sn_cfctl%procmin .OR. narea > sn_cfctl%procmax .OR. MOD( narea - sn_cfctl%procmin, sn_cfctl%procincr ) /= 0 ) & 340 & CALL nemo_set_cfctl( sn_cfctl, .FALSE. ) 349 341 ! 350 342 lwp = (narea == 1) .OR. sn_cfctl%l_oceout ! control of all listing output print … … 531 523 WRITE(numout,*) '~~~~~~~~' 532 524 WRITE(numout,*) ' Namelist namctl' 533 WRITE(numout,*) ' sn_cfctl%l_glochk = ', sn_cfctl%l_glochk534 WRITE(numout,*) ' sn_cfctl%l_allon = ', sn_cfctl%l_allon535 WRITE(numout,*) ' finer control over o/p sn_cfctl%l_config = ', sn_cfctl%l_config536 525 WRITE(numout,*) ' sn_cfctl%l_runstat = ', sn_cfctl%l_runstat 537 526 WRITE(numout,*) ' sn_cfctl%l_trcstat = ', sn_cfctl%l_trcstat … … 681 670 682 671 683 SUBROUTINE nemo_set_cfctl(sn_cfctl, setto , for_all)672 SUBROUTINE nemo_set_cfctl(sn_cfctl, setto ) 684 673 !!---------------------------------------------------------------------- 685 674 !! *** ROUTINE nemo_set_cfctl *** 686 675 !! 687 676 !! ** Purpose : Set elements of the output control structure to setto. 688 !! for_all should be .false. unless all areas are to be689 !! treated identically.690 677 !! 691 678 !! ** Method : Note this routine can be used to switch on/off some 692 !! types of output for selected areas but any output types 693 !! that involve global communications (e.g. mpp_max, glob_sum) 694 !! should be protected from selective switching by the 695 !! for_all argument 696 !!---------------------------------------------------------------------- 697 LOGICAL :: setto, for_all 698 TYPE(sn_ctl) :: sn_cfctl 699 !!---------------------------------------------------------------------- 700 IF( for_all ) THEN 701 sn_cfctl%l_runstat = setto 702 sn_cfctl%l_trcstat = setto 703 ENDIF 679 !! types of output for selected areas. 680 !!---------------------------------------------------------------------- 681 TYPE(sn_ctl), INTENT(inout) :: sn_cfctl 682 LOGICAL , INTENT(in ) :: setto 683 !!---------------------------------------------------------------------- 684 sn_cfctl%l_runstat = setto 685 sn_cfctl%l_trcstat = setto 704 686 sn_cfctl%l_oceout = setto 705 687 sn_cfctl%l_layout = setto
Note: See TracChangeset
for help on using the changeset viewer.