- Timestamp:
- 2020-06-29T18:02:13+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/SAS/nemogcm.F90
r13015 r13176 35 35 USE step_diu ! diurnal bulk SST timestepping (called from here if run offline) 36 36 ! 37 USE prtctl ! Print control 37 38 USE in_out_manager ! I/O manager 38 39 USE lib_mpp ! distributed memory computing … … 202 203 INTEGER :: ios, ilocal_comm ! local integers 203 204 !! 204 NAMELIST/namctl/ sn_cfctl, nn_print, nn_ictls, nn_ictle, & 205 & nn_isplt , nn_jsplt, nn_jctls, nn_jctle, & 206 & ln_timing, ln_diacfl 205 NAMELIST/namctl/ sn_cfctl, ln_timing, ln_diacfl, & 206 & nn_isplt, nn_jsplt, nn_ictls, nn_ictle, nn_jctls, nn_jctle 207 207 NAMELIST/namcfg/ ln_read_cfg, cn_domcfg, ln_closea, ln_write_cfg, cn_domcfg_out, ln_use_jattr 208 208 !!---------------------------------------------------------------------- … … 410 410 WRITE(numout,*) ' sn_cfctl%procincr = ', sn_cfctl%procincr 411 411 WRITE(numout,*) ' sn_cfctl%ptimincr = ', sn_cfctl%ptimincr 412 WRITE(numout,*) ' level of print nn_print = ', nn_print413 WRITE(numout,*) ' Start i indice for SUM control nn_ictls = ', nn_ictls414 WRITE(numout,*) ' End i indice for SUM control nn_ictle = ', nn_ictle415 WRITE(numout,*) ' Start j indice for SUM control nn_jctls = ', nn_jctls416 WRITE(numout,*) ' End j indice for SUM control nn_jctle = ', nn_jctle417 WRITE(numout,*) ' number of proc. following i nn_isplt = ', nn_isplt418 WRITE(numout,*) ' number of proc. following j nn_jsplt = ', nn_jsplt419 412 WRITE(numout,*) ' timing by routine ln_timing = ', ln_timing 420 413 WRITE(numout,*) ' CFL diagnostics ln_diacfl = ', ln_diacfl 421 414 ENDIF 422 415 ! 423 nprint = nn_print ! convert DOCTOR namelist names into OLD names 424 nictls = nn_ictls 425 nictle = nn_ictle 426 njctls = nn_jctls 427 njctle = nn_jctle 428 isplt = nn_isplt 429 jsplt = nn_jsplt 430 416 IF( .NOT.ln_read_cfg ) ln_closea = .FALSE. ! dealing possible only with a domcfg file 431 417 IF(lwp) THEN ! control print 432 418 WRITE(numout,*) … … 439 425 WRITE(numout,*) ' use file attribute if exists as i/p j-start ln_use_jattr = ', ln_use_jattr 440 426 ENDIF 441 IF( .NOT.ln_read_cfg ) ln_closea = .false. ! dealing possible only with a domcfg file442 !443 ! ! Parameter control444 !445 IF( sn_cfctl%l_prtctl .OR. sn_cfctl%l_prttrc ) THEN ! sub-domain area indices for the control prints446 IF( lk_mpp .AND. jpnij > 1 ) THEN447 isplt = jpni ; jsplt = jpnj ; ijsplt = jpni*jpnj ! the domain is forced to the real split domain448 ELSE449 IF( isplt == 1 .AND. jsplt == 1 ) THEN450 CALL ctl_warn( ' - isplt & jsplt are equal to 1', &451 & ' - the print control will be done over the whole domain' )452 ENDIF453 ijsplt = isplt * jsplt ! total number of processors ijsplt454 ENDIF455 IF(lwp) WRITE(numout,*)' - The total number of processors over which the'456 IF(lwp) WRITE(numout,*)' print control will be done is ijsplt : ', ijsplt457 !458 ! ! indices used for the SUM control459 IF( nictls+nictle+njctls+njctle == 0 ) THEN ! print control done over the default area460 lsp_area = .FALSE.461 ELSE ! print control done over a specific area462 lsp_area = .TRUE.463 IF( nictls < 1 .OR. nictls > jpiglo ) THEN464 CALL ctl_warn( ' - nictls must be 1<=nictls>=jpiglo, it is forced to 1' )465 nictls = 1466 ENDIF467 IF( nictle < 1 .OR. nictle > jpiglo ) THEN468 CALL ctl_warn( ' - nictle must be 1<=nictle>=jpiglo, it is forced to jpiglo' )469 nictle = jpiglo470 ENDIF471 IF( njctls < 1 .OR. njctls > jpjglo ) THEN472 CALL ctl_warn( ' - njctls must be 1<=njctls>=jpjglo, it is forced to 1' )473 njctls = 1474 ENDIF475 IF( njctle < 1 .OR. njctle > jpjglo ) THEN476 CALL ctl_warn( ' - njctle must be 1<=njctle>=jpjglo, it is forced to jpjglo' )477 njctle = jpjglo478 ENDIF479 ENDIF480 ENDIF481 427 ! 482 428 IF( 1._wp /= SIGN(1._wp,-0._wp) ) CALL ctl_stop( 'nemo_ctl: The intrinsec SIGN function follows f2003 standard.', &
Note: See TracChangeset
for help on using the changeset viewer.