- Timestamp:
- 2019-07-22T14:52:29+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/tests/ICE_ADV1D/MY_SRC/usrdef_nam.F90
r11317 r11320 79 79 zlx = kpi*rn_dx*1.e-3 80 80 zly = kpj*rn_dy*1.e-3 81 ! ! control print82 WRITE(numout,*) ' '83 WRITE(numout,*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg'84 WRITE(numout,*) '~~~~~~~~~~~ '85 WRITE(numout,*) ' Namelist namusr_def : ICE_ADV1D test case'86 WRITE(numout,*) ' horizontal resolution rn_dx = ', rn_dx, ' meters'87 WRITE(numout,*) ' horizontal resolution rn_dy = ', rn_dy, ' meters'88 WRITE(numout,*) ' ICE_ADV1D domain '89 WRITE(numout,*) ' LX [km]: ', zlx90 WRITE(numout,*) ' LY [km]: ', zly91 WRITE(numout,*) ' resulting global domain size : jpiglo = ', kpi92 WRITE(numout,*) ' jpjglo = ', kpj93 WRITE(numout,*) ' jpkglo = ', kpk94 WRITE(numout,*) ' Coriolis:', ln_corio95 !96 81 ! ! Set the lateral boundary condition of the global domain 97 82 kperio = 0 ! ICE_ADV1D configuration : bi-periodic basin 98 ! 99 WRITE(numout,*) ' ' 100 WRITE(numout,*) ' Lateral boundary condition of the global domain' 101 WRITE(numout,*) ' ICE_ADV1D : closed basin jperio = ', kperio 83 ! ! control print 84 IF(lwp) THEN 85 WRITE(numout,*) ' ' 86 WRITE(numout,*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' 87 WRITE(numout,*) '~~~~~~~~~~~ ' 88 WRITE(numout,*) ' Namelist namusr_def : ICE_ADV1D test case' 89 WRITE(numout,*) ' horizontal resolution rn_dx = ', rn_dx, ' meters' 90 WRITE(numout,*) ' horizontal resolution rn_dy = ', rn_dy, ' meters' 91 WRITE(numout,*) ' ICE_ADV1D domain ' 92 WRITE(numout,*) ' LX [km]: ', zlx 93 WRITE(numout,*) ' LY [km]: ', zly 94 WRITE(numout,*) ' resulting global domain size : jpiglo = ', kpi 95 WRITE(numout,*) ' jpjglo = ', kpj 96 WRITE(numout,*) ' jpkglo = ', kpk 97 WRITE(numout,*) ' Coriolis:', ln_corio 98 WRITE(numout,*) ' ' 99 WRITE(numout,*) ' Lateral boundary condition of the global domain' 100 WRITE(numout,*) ' ICE_ADV1D : closed basin jperio = ', kperio 101 ENDIF 102 102 ! 103 103 END SUBROUTINE usr_def_nam
Note: See TracChangeset
for help on using the changeset viewer.