Changeset 13286 for NEMO/trunk/src/SAS/nemogcm.F90
- Timestamp:
- 2020-07-09T17:48:29+02:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 2 2 ^/utils/build/makenemo@HEAD makenemo 3 3 ^/utils/build/mk@HEAD mk 4 ^/utils/tools /@HEADtools4 ^/utils/tools@HEAD tools 5 5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM … … 8 8 9 9 # SETTE 10 ^/utils/CI/ sette@12931sette10 ^/utils/CI/r12931_sette_ticket2366@HEAD sette
-
- Property svn:externals
-
NEMO/trunk/src/SAS/nemogcm.F90
r13216 r13286 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 39 40 USE mppini ! shared/distributed memory setting (mpp_init routine) 40 USE lbcnfd , ONLY : isendto, nsndto , nfsloop, nfeloop! Setup of north fold exchanges41 USE lbcnfd , ONLY : isendto, nsndto ! Setup of north fold exchanges 41 42 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 42 43 #if defined key_iomput … … 46 47 USE agrif_ice_update ! ice update 47 48 #endif 49 USE halo_mng 48 50 49 51 IMPLICIT NONE … … 197 199 INTEGER :: ios, ilocal_comm ! local integers 198 200 !! 199 NAMELIST/namctl/ sn_cfctl, nn_print, nn_ictls, nn_ictle, & 200 & nn_isplt , nn_jsplt, nn_jctls, nn_jctle, & 201 & ln_timing, ln_diacfl 201 NAMELIST/namctl/ sn_cfctl, ln_timing, ln_diacfl, & 202 & nn_isplt, nn_jsplt, nn_ictls, nn_ictle, nn_jctls, nn_jctle 202 203 NAMELIST/namcfg/ ln_read_cfg, cn_domcfg, ln_closea, ln_write_cfg, cn_domcfg_out, ln_use_jattr 203 204 !!---------------------------------------------------------------------- … … 206 207 ELSE ; cxios_context = 'nemo' 207 208 ENDIF 209 nn_hls = 1 208 210 ! 209 211 ! !-------------------------------------------------! … … 324 326 ! 325 327 IF( ln_read_cfg ) THEN ! Read sizes in domain configuration file 326 CALL domain_cfg ( cn_cfg, nn_cfg, jpiglo, jpjglo, jpkglo, jperio )328 CALL domain_cfg ( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio ) 327 329 ELSE ! user-defined namelist 328 CALL usr_def_nam( cn_cfg, nn_cfg, jpiglo, jpjglo, jpkglo, jperio )330 CALL usr_def_nam( cn_cfg, nn_cfg, Ni0glo, Nj0glo, jpkglo, jperio ) 329 331 ENDIF 330 332 ! … … 336 338 CALL mpp_init 337 339 340 CALL halo_mng_init() 338 341 ! Now we know the dimensions of the grid and numout has been set: we can allocate arrays 339 342 CALL nemo_alloc() … … 409 412 WRITE(numout,*) ' sn_cfctl%procincr = ', sn_cfctl%procincr 410 413 WRITE(numout,*) ' sn_cfctl%ptimincr = ', sn_cfctl%ptimincr 411 WRITE(numout,*) ' level of print nn_print = ', nn_print412 WRITE(numout,*) ' Start i indice for SUM control nn_ictls = ', nn_ictls413 WRITE(numout,*) ' End i indice for SUM control nn_ictle = ', nn_ictle414 WRITE(numout,*) ' Start j indice for SUM control nn_jctls = ', nn_jctls415 WRITE(numout,*) ' End j indice for SUM control nn_jctle = ', nn_jctle416 WRITE(numout,*) ' number of proc. following i nn_isplt = ', nn_isplt417 WRITE(numout,*) ' number of proc. following j nn_jsplt = ', nn_jsplt418 414 WRITE(numout,*) ' timing by routine ln_timing = ', ln_timing 419 415 WRITE(numout,*) ' CFL diagnostics ln_diacfl = ', ln_diacfl 420 416 ENDIF 421 417 ! 422 nprint = nn_print ! convert DOCTOR namelist names into OLD names 423 nictls = nn_ictls 424 nictle = nn_ictle 425 njctls = nn_jctls 426 njctle = nn_jctle 427 isplt = nn_isplt 428 jsplt = nn_jsplt 429 418 IF( .NOT.ln_read_cfg ) ln_closea = .FALSE. ! dealing possible only with a domcfg file 430 419 IF(lwp) THEN ! control print 431 420 WRITE(numout,*) … … 438 427 WRITE(numout,*) ' use file attribute if exists as i/p j-start ln_use_jattr = ', ln_use_jattr 439 428 ENDIF 440 IF( .NOT.ln_read_cfg ) ln_closea = .false. ! dealing possible only with a domcfg file441 !442 ! ! Parameter control443 !444 IF( sn_cfctl%l_prtctl .OR. sn_cfctl%l_prttrc ) THEN ! sub-domain area indices for the control prints445 IF( lk_mpp .AND. jpnij > 1 ) THEN446 isplt = jpni ; jsplt = jpnj ; ijsplt = jpni*jpnj ! the domain is forced to the real split domain447 ELSE448 IF( isplt == 1 .AND. jsplt == 1 ) THEN449 CALL ctl_warn( ' - isplt & jsplt are equal to 1', &450 & ' - the print control will be done over the whole domain' )451 ENDIF452 ijsplt = isplt * jsplt ! total number of processors ijsplt453 ENDIF454 IF(lwp) WRITE(numout,*)' - The total number of processors over which the'455 IF(lwp) WRITE(numout,*)' print control will be done is ijsplt : ', ijsplt456 !457 ! ! indices used for the SUM control458 IF( nictls+nictle+njctls+njctle == 0 ) THEN ! print control done over the default area459 lsp_area = .FALSE.460 ELSE ! print control done over a specific area461 lsp_area = .TRUE.462 IF( nictls < 1 .OR. nictls > jpiglo ) THEN463 CALL ctl_warn( ' - nictls must be 1<=nictls>=jpiglo, it is forced to 1' )464 nictls = 1465 ENDIF466 IF( nictle < 1 .OR. nictle > jpiglo ) THEN467 CALL ctl_warn( ' - nictle must be 1<=nictle>=jpiglo, it is forced to jpiglo' )468 nictle = jpiglo469 ENDIF470 IF( njctls < 1 .OR. njctls > jpjglo ) THEN471 CALL ctl_warn( ' - njctls must be 1<=njctls>=jpjglo, it is forced to 1' )472 njctls = 1473 ENDIF474 IF( njctle < 1 .OR. njctle > jpjglo ) THEN475 CALL ctl_warn( ' - njctle must be 1<=njctle>=jpjglo, it is forced to jpjglo' )476 njctle = jpjglo477 ENDIF478 ENDIF479 ENDIF480 429 ! 481 430 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.