- Timestamp:
- 2019-07-22T14:52:29+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/DOM/domain.F90
r11317 r11320 530 530 !!---------------------------------------------------------------------- 531 531 ! 532 WRITE(numout,*) ' ' 533 WRITE(numout,*) 'domain_cfg : domain size read in ', TRIM( cn_domcfg ), ' file' 534 WRITE(numout,*) '~~~~~~~~~~ ' 532 IF(lwp) THEN 533 WRITE(numout,*) ' ' 534 WRITE(numout,*) 'domain_cfg : domain size read in ', TRIM( cn_domcfg ), ' file' 535 WRITE(numout,*) '~~~~~~~~~~ ' 536 ENDIF 535 537 ! 536 538 CALL iom_open( cn_domcfg, inum ) … … 543 545 CALL iom_get( inum, 'ORCA_index', zorca_res ) ; kk_cfg = NINT( zorca_res ) 544 546 ! 545 WRITE(numout,*) ' .' 546 WRITE(numout,*) ' ==>>> ORCA configuration ' 547 WRITE(numout,*) ' .' 547 IF(lwp) THEN 548 WRITE(numout,*) ' .' 549 WRITE(numout,*) ' ==>>> ORCA configuration ' 550 WRITE(numout,*) ' .' 551 ENDIF 548 552 ! 549 553 ELSE !- cd_cfg & k_cfg are not used … … 566 570 CALL iom_close( inum ) 567 571 ! 568 WRITE(numout,*) ' cn_cfg = ', TRIM(cd_cfg), ' nn_cfg = ', kk_cfg 569 WRITE(numout,*) ' jpiglo = ', kpi 570 WRITE(numout,*) ' jpjglo = ', kpj 571 WRITE(numout,*) ' jpkglo = ', kpk 572 WRITE(numout,*) ' type of global domain lateral boundary jperio = ', kperio 572 IF(lwp) THEN 573 WRITE(numout,*) ' cn_cfg = ', TRIM(cd_cfg), ' nn_cfg = ', kk_cfg 574 WRITE(numout,*) ' jpiglo = ', kpi 575 WRITE(numout,*) ' jpjglo = ', kpj 576 WRITE(numout,*) ' jpkglo = ', kpk 577 WRITE(numout,*) ' type of global domain lateral boundary jperio = ', kperio 578 ENDIF 573 579 ! 574 580 END SUBROUTINE domain_cfg -
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/USR/usrdef_nam.F90
r11317 r11320 80 80 #endif 81 81 kpk = jpkglo 82 !83 ! ! control print84 WRITE(numout,*) ' '85 WRITE(numout,*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg'86 WRITE(numout,*) '~~~~~~~~~~~ '87 WRITE(numout,*) ' Namelist namusr_def : GYRE case'88 WRITE(numout,*) ' GYRE used as Benchmark (=T) ln_bench = ', ln_bench89 WRITE(numout,*) ' inverse resolution & implied domain size nn_GYRE = ', nn_GYRE90 #if defined key_agrif91 IF( Agrif_Root() ) THEN92 #endif93 WRITE(numout,*) ' jpiglo = 30*nn_GYRE+2 jpiglo = ', kpi94 WRITE(numout,*) ' jpjglo = 20*nn_GYRE+2 jpjglo = ', kpj95 #if defined key_agrif96 ENDIF97 #endif98 WRITE(numout,*) ' number of model levels jpkglo = ', kpk99 !100 82 ! ! Set the lateral boundary condition of the global domain 101 83 kperio = 0 ! GYRE configuration : closed domain 102 84 ! 103 WRITE(numout,*) ' ' 104 WRITE(numout,*) ' Lateral b.c. of the global domain set to closed jperio = ', kperio 85 ! ! control print 86 IF(lwp) THEN 87 WRITE(numout,*) ' ' 88 WRITE(numout,*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' 89 WRITE(numout,*) '~~~~~~~~~~~ ' 90 WRITE(numout,*) ' Namelist namusr_def : GYRE case' 91 WRITE(numout,*) ' GYRE used as Benchmark (=T) ln_bench = ', ln_bench 92 WRITE(numout,*) ' inverse resolution & implied domain size nn_GYRE = ', nn_GYRE 93 #if defined key_agrif 94 IF( Agrif_Root() ) THEN 95 #endif 96 WRITE(numout,*) ' jpiglo = 30*nn_GYRE+2 jpiglo = ', kpi 97 WRITE(numout,*) ' jpjglo = 20*nn_GYRE+2 jpjglo = ', kpj 98 #if defined key_agrif 99 ENDIF 100 #endif 101 WRITE(numout,*) ' number of model levels jpkglo = ', kpk 102 WRITE(numout,*) ' ' 103 WRITE(numout,*) ' Lateral b.c. of the global domain set to closed jperio = ', kperio 104 ENDIF 105 105 ! 106 106 END SUBROUTINE usr_def_nam
Note: See TracChangeset
for help on using the changeset viewer.