Changeset 13752 for NEMO/branches
- Timestamp:
- 2020-11-09T17:03:22+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/SWG
- Files:
-
- 1 deleted
- 5 edited
- 5 copied
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/SWG/EXPREF/namelist_cfg
r13706 r13752 2 2 !! NEMO/OCE Configuration namelist : overwrite reference namelist 3 3 !!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 4 !! AM98configuration !!4 !! SWG configuration !! 5 5 !!====================================================================== 6 6 !! *** Domain & Run management namelists *** !! … … 20 20 &namrun ! parameters of the run 21 21 !----------------------------------------------------------------------- 22 cn_exp = " AM98"! experience name22 cn_exp = "SWG" ! experience name 23 23 nn_it000 = 1 ! first time step 24 nn_itend = 172800 ! 10 ans - 30 min - AM981/4deg24 nn_itend = 172800 ! 10 ans - 30 min - SWG 1/4deg 25 25 ! nn_itend = 86400 ! 10 ans - 1h 26 26 nn_leapy = 30 ! Leap year calendar (1) or not (0) … … 34 34 / 35 35 !----------------------------------------------------------------------- 36 &namusr_def ! AM98user defined namelist37 !----------------------------------------------------------------------- 38 nn_ AM98 = 4 ! AM98 resolution [1/nn_AM98]36 &namusr_def ! SWG user defined namelist 37 !----------------------------------------------------------------------- 38 nn_SWG = 4 ! SWG resolution [1/nn_SWG] 39 39 jpkglo = 2 ! number of model levels 40 40 rn_theta = 0. ! rotation angle fo the grid [deg] … … 66 66 ln_linssh = .false. ! =T linear free surface ==>> model level are fixed in time 67 67 ! 68 ! rn_Dt = 3600. ! 1h - AM981 deg69 rn_Dt = 1800. ! 30min - AM981/4deg68 ! rn_Dt = 3600. ! 1h - SWG 1 deg 69 rn_Dt = 1800. ! 30min - SWG 1/4deg 70 70 ln_meshmask = .false. ! =T create a mesh file 71 71 / -
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/SWG/MY_SRC/usrdef_hgr.F90
r13599 r13752 3 3 !! *** MODULE usrdef_hgr *** 4 4 !! 5 !! === AM98configuration ===5 !! === SWG configuration === 6 6 !! 7 7 !! User defined : mesh and Coriolis parameter of a user configuration … … 47 47 !! ** Method : set all intent(out) argument to a proper value 48 48 !! 49 !! Here AM98configuration :49 !! Here SWG configuration : 50 50 !! Rectangular mid-latitude domain 51 51 !! - with axes rotated by 45 degrees … … 74 74 !!------------------------------------------------------------------------------- 75 75 ! 76 ! !== beta-plane with regular grid-spacing and rotated domain ==! ( AM98configuration)76 ! !== beta-plane with regular grid-spacing and rotated domain ==! (SWG configuration) 77 77 ! 78 78 IF(lwp) WRITE(numout,*) 79 IF(lwp) WRITE(numout,*) 'usr_def_hgr : AM98configuration (beta-plane with rotated regular grid-spacing)'79 IF(lwp) WRITE(numout,*) 'usr_def_hgr : SWG configuration (beta-plane with rotated regular grid-spacing)' 80 80 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 81 81 ! … … 83 83 ! !== grid point position ==! 84 84 ! 85 ze1 = rn_dx / REAL(nn_ AM98, wp)! [m] gridspacing used85 ze1 = rn_dx / REAL(nn_SWG, wp) ! [m] gridspacing used 86 86 zgl = rn_domsiz + 2._wp * REAL(nn_gc, wp) * ze1 ! [m] length of the square with ghostcells 87 87 ! fit the best square around the square + ghost cells -
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/SWG/MY_SRC/usrdef_istate.F90
r13615 r13752 3 3 !! *** MODULE usrdef_istate *** 4 4 !! 5 !! === AM98configuration ===5 !! === SWG configuration === 6 6 !! 7 7 !! User defined : set the initial state of a user configuration … … 37 37 !! 38 38 !! ** Purpose : Initialization of the dynamics and tracers 39 !! Here AM98configuration example : (double gyre with rotated domain)39 !! Here SWG configuration example : (double gyre with rotated domain) 40 40 !! 41 41 !! ** Method : - set temprature field -
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/SWG/MY_SRC/usrdef_nam.F90
r13599 r13752 3 3 !! *** MODULE usrdef_nam *** 4 4 !! 5 !! === AM98configuration ===5 !! === SWG configuration === 6 6 !! 7 7 !! User defined : set the domain characteristics of a user configuration … … 27 27 PUBLIC usr_def_nam ! called in nemogcm.F90 module 28 28 ! !!* namusr_def namelist *!! 29 INTEGER , PUBLIC :: nn_ AM98 ! 1/nn_AM98= the resolution chosen in degrees and thus defining the horizontal domain size29 INTEGER , PUBLIC :: nn_SWG ! 1/nn_SWG = the resolution chosen in degrees and thus defining the horizontal domain size 30 30 REAL(wp), PUBLIC :: rn_theta ! rotation angle (in degree) of the grid 31 31 INTEGER , PUBLIC :: nn_gc ! number of ghostcells … … 65 65 !! ** Method : read in namusr_def containing all the user specific namelist parameter 66 66 !! 67 !! Here AM98configuration67 !! Here SWG configuration 68 68 !! 69 69 !! ** input : - namusr_def namelist found in namelist_cfg … … 77 77 REAL(wp) :: ze1, zgl, zbl ! gridspacing, length of the biggest square 78 78 !! 79 NAMELIST/namusr_def/ nn_ AM98, rn_theta, jpkglo,& !79 NAMELIST/namusr_def/ nn_SWG, rn_theta, jpkglo, & ! 80 80 & nn_gc ,rn_domsiz, rn_dx, & ! domain parameters 81 81 & rn_f0 ,rn_beta, & ! coriolis parameter … … 90 90 IF(lwm) WRITE( numond, namusr_def ) 91 91 ! 92 cd_cfg = ' AM98' ! name & resolution (not used)92 cd_cfg = 'SWG' ! name & resolution (not used) 93 93 94 94 #if defined key_agrif 95 IF (.NOT.Agrif_root()) nn_ AM98 = Agrif_parent(nn_AM98) * Agrif_irhox()95 IF (.NOT.Agrif_root()) nn_SWG = Agrif_parent(nn_SWG) * Agrif_irhox() 96 96 #endif 97 97 98 kk_cfg = nn_ AM9898 kk_cfg = nn_SWG 99 99 ! 100 ze1 = rn_dx / REAL(nn_ AM98, wp)! [m] gridspacing used100 ze1 = rn_dx / REAL(nn_SWG, wp) ! [m] gridspacing used 101 101 zgl = rn_domsiz + 2._wp * REAL(nn_gc, wp) * ze1 ! [m] length of the square with ghostcells 102 102 ! rotation … … 110 110 kpk = jpkglo 111 111 ! ! Set the lateral boundary condition of the global domain 112 kperio = 0 ! AM98configuration : closed domain112 kperio = 0 ! SWG configuration : closed domain 113 113 ! 114 114 # if defined key_bvp … … 120 120 WRITE(numout,*) 'usr_def_nam : read the user defined namelist (namusr_def) in namelist_cfg' 121 121 WRITE(numout,*) '~~~~~~~~~~~ ' 122 WRITE(numout,*) ' Namelist namusr_def : AM98case'122 WRITE(numout,*) ' Namelist namusr_def : SWG case' 123 123 WRITE(numout,*) ' domain size rn_domsiz = ', rn_domsiz, 'm' 124 124 WRITE(numout,*) ' gridspacing rn_dx = ', rn_dx, 'm' 125 WRITE(numout,*) ' inverse resolution & implied domain size nn_AM98 = ', nn_AM98125 WRITE(numout,*) ' inverse resolution & implied domain size nn_SWG = ', nn_SWG 126 126 WRITE(numout,*) ' implied gridspacing rn_dx = ', rn_dx, 'm' 127 127 WRITE(numout,*) ' number of ghostcells nn_gc = ', nn_gc -
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/SWG/MY_SRC/usrdef_sbc.F90
r13599 r13752 3 3 !! *** MODULE usrdef_sbc *** 4 4 !! 5 !! === AM98configuration ===5 !! === SWG configuration === 6 6 !! 7 7 !! User defined : surface forcing of a user configuration -
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/SWG/MY_SRC/usrdef_zgr.F90
r13599 r13752 3 3 !! *** MODULE usrdef_zgr *** 4 4 !! 5 !! === AM98configuration ===5 !! === SWG configuration === 6 6 !! 7 7 !! User defined : vertical coordinate system of a user configuration … … 65 65 ! 66 66 IF(lwp) WRITE(numout,*) 67 IF(lwp) WRITE(numout,*) 'usr_def_zgr : AM98configuration (z-coordinate closed flat box ocean without cavities)'67 IF(lwp) WRITE(numout,*) 'usr_def_zgr : SWG configuration (z-coordinate closed flat box ocean without cavities)' 68 68 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 69 69 ! … … 71 71 ! type of vertical coordinate 72 72 ! --------------------------- 73 ld_zco = .FALSE. ! AM98case: z-coordinate without ocean cavities73 ld_zco = .FALSE. ! SWG case: z-coordinate without ocean cavities 74 74 ld_zps = .FALSE. 75 75 ld_sco = .TRUE. … … 168 168 !! ** Purpose : set the masked top and bottom ocean t-levels 169 169 !! 170 !! ** Method : AM98case = closed flat box ocean without ocean cavities170 !! ** Method : SWG case = closed flat box ocean without ocean cavities 171 171 !! k_top = 1 except along north, south, east and west boundaries 172 172 !! k_bot = jpk-1 except along north, south, east and west boundaries … … 186 186 IF(lwp) WRITE(numout,*) ' zgr_top_bot : defines the top and bottom wet ocean levels.' 187 187 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~' 188 IF(lwp) WRITE(numout,*) ' AM98case : closed flat box ocean without ocean cavities'188 IF(lwp) WRITE(numout,*) ' SWG case : closed flat box ocean without ocean cavities' 189 189 ! 190 190 z2d(:,:) = REAL( jpkm1 , wp ) ! flat bottom
Note: See TracChangeset
for help on using the changeset viewer.