MODULE usrdef_nam !!====================================================================== !! *** MODULE usrdef_nam *** !! !! === C1D_PAPA configuration === !! !! User defined : set the domain characteristics of a user configuration !!====================================================================== !! History : 4.0 ! 2016-03 (S. Flavoni, G. Madec) Original code !!---------------------------------------------------------------------- !!---------------------------------------------------------------------- !! usr_def_nam : read user defined namelist and set global domain size !! usr_def_hgr : initialize the horizontal mesh !!---------------------------------------------------------------------- USE dom_oce , ONLY: nimpp, njmpp ! ocean space and time domain USE dom_oce , ONLY: ln_zco, ln_zps, ln_sco ! flag of type of coordinate USE par_oce ! ocean space and time domain USE phycst ! physical constants ! USE in_out_manager ! I/O manager USE lib_mpp ! MPP library IMPLICIT NONE PRIVATE PUBLIC usr_def_nam ! called in nemogcm.F90 module ! !!* namusr_def namelist *!! LOGICAL, PUBLIC :: ln_bench ! =T benchmark test with gyre: the gridsize is constant (no need to adjust timestep or viscosity) INTEGER, PUBLIC :: nn_GYRE ! 1/nn_GYRE = the resolution chosen in degrees and thus defining the horizontal domain size REAL(wp), PUBLIC:: rn_bathy ! Depth in meters for 1D configuration !!---------------------------------------------------------------------- !! NEMO/OCE 4.0 , NEMO Consortium (2018) !! $Id$ !! Software governed by the CeCILL license (see ./LICENSE) !!---------------------------------------------------------------------- CONTAINS SUBROUTINE usr_def_nam( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) !!---------------------------------------------------------------------- !! *** ROUTINE dom_nam *** !! !! ** Purpose : read user defined namelist and define the domain size !! !! ** Method : read in namusr_def containing all the user specific namelist parameter !! !! Here C1D configuration !! !! ** input : - namusr_def namelist found in namelist_cfg !!---------------------------------------------------------------------- CHARACTER(len=*) , INTENT(out) :: cd_cfg ! configuration name INTEGER , INTENT(out) :: kk_cfg ! configuration resolution INTEGER , INTENT(out) :: kpi, kpj, kpk ! global domain sizes INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. ! INTEGER :: ios ! Local integer !! NAMELIST/namusr_def/ rn_bathy !!---------------------------------------------------------------------- ! REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only) READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 902 ) 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) ! IF(lwm) WRITE( numond, namusr_def ) ! cd_cfg = 'C1D' ! name & resolution (not used) kk_cfg = 0 ! Global Domain size: C1D domain is 3 x 3 grid-points x 75 or vertical levels kpi = 3 kpj = 3 kpk = 75 ! ! Set the lateral boundary condition of the global domain kperio = 7 ! C1D configuration : 3x3 basin with cyclic Est-West and Norht-South condition ! ! ! control print IF(lwp) THEN WRITE(numout,*) ' ' WRITE(numout,*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' WRITE(numout,*) '~~~~~~~~~~~ ' WRITE(numout,*) ' Namelist namusr_def : C1 case' WRITE(numout,*) ' type of vertical coordinate : ' WRITE(numout,*) ' z-coordinate flag ln_zco = ', ln_zco WRITE(numout,*) ' z-partial-step coordinate flag ln_zps = ', ln_zps WRITE(numout,*) ' s-coordinate flag ln_sco = ', ln_sco WRITE(numout,*) ' C1D domain = 3 x 3 x75 grid-points ' WRITE(numout,*) ' resulting global domain size : jpiglo = ', kpi WRITE(numout,*) ' jpjglo = ', kpj WRITE(numout,*) ' jpkglo = ', kpk WRITE(numout,*) ' Lateral boundary condition of the global domain' WRITE(numout,*) ' C1D : closed basin jperio = ', kperio ENDIF ! END SUBROUTINE usr_def_nam !!====================================================================== END MODULE usrdef_nam