Changeset 9135 for branches/2017/dev_merge_2017/NEMOGCM/CONFIG
- Timestamp:
- 2017-12-19T16:44:50+01:00 (6 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/ISOMIP/EXP00/namelist_cfg
r9089 r9135 6 6 !----------------------------------------------------------------------- 7 7 ln_zps = .true. ! z-partial-step coordinate 8 ln_zco = .false. ! z-full-step coordinate 9 ln_sco = .false. ! s-coordinate 8 10 rn_e1deg = 0.3 ! zonal grid-spacing (degrees) 9 11 rn_e2deg = 0.1 ! meridional grid-spacing (degrees) -
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/ISOMIP/MY_SRC/usrdef_zgr.F90
r9125 r9135 16 16 !!--------------------------------------------------------------------- 17 17 USE oce ! ocean variables 18 USE dom_oce , ONLY: ln_zco, ln_zps, ln_sco ! ocean space and time domain19 18 USE dom_oce , ONLY: mj0 , mj1 , nimpp , njmpp ! ocean space and time domain 20 19 USE dom_oce , ONLY: glamt , gphit ! ocean space and time domain … … 52 51 !! 53 52 !!---------------------------------------------------------------------- 54 LOGICAL , INTENT( out) :: ld_zco, ld_zps, ld_sco ! vertical coordinate flags55 LOGICAL , INTENT( out) :: ld_isfcav ! under iceshelf cavity flag56 REAL(wp), DIMENSION(:) , INTENT( out) :: pdept_1d, pdepw_1d ! 1D grid-point depth [m]57 REAL(wp), DIMENSION(:) , INTENT( out) :: pe3t_1d , pe3w_1d ! 1D grid-point depth [m]58 REAL(wp), DIMENSION(:,:,:), INTENT( out) :: pdept, pdepw ! grid-point depth [m]59 REAL(wp), DIMENSION(:,:,:), INTENT( out) :: pe3t , pe3u , pe3v , pe3f ! vertical scale factors [m]60 REAL(wp), DIMENSION(:,:,:), INTENT( out) :: pe3w , pe3uw, pe3vw ! i-scale factors61 INTEGER , DIMENSION(:,:) , INTENT( out) :: k_top, k_bot ! first & last ocean level53 LOGICAL , INTENT(in ) :: ld_zco, ld_zps, ld_sco ! vertical coordinate flags ( read in namusr_def ) 54 LOGICAL , INTENT( out) :: ld_isfcav ! under iceshelf cavity flag 55 REAL(wp), DIMENSION(:) , INTENT( out) :: pdept_1d, pdepw_1d ! 1D grid-point depth [m] 56 REAL(wp), DIMENSION(:) , INTENT( out) :: pe3t_1d , pe3w_1d ! 1D grid-point depth [m] 57 REAL(wp), DIMENSION(:,:,:), INTENT( out) :: pdept, pdepw ! grid-point depth [m] 58 REAL(wp), DIMENSION(:,:,:), INTENT( out) :: pe3t , pe3u , pe3v , pe3f ! vertical scale factors [m] 59 REAL(wp), DIMENSION(:,:,:), INTENT( out) :: pe3w , pe3uw, pe3vw ! i-scale factors 60 INTEGER , DIMENSION(:,:) , INTENT( out) :: k_top, k_bot ! first & last ocean level 62 61 ! 63 62 INTEGER :: ji , jj, jk ! dummy indices … … 80 79 ! --------------------------- 81 80 ! set in usrdef_nam.F90 by reading the namusr_def namelist except for ISF 82 ln_zco = .FALSE. ! z-partial-step coordinate83 ln_zps = .TRUE. ! z-partial-step coordinate84 ln_sco = .FALSE. ! s-coordinate85 81 ld_isfcav = .TRUE. ! ISF Ice Shelves Flag 86 82 ! … … 109 105 ! !== top masked level bathymetry ==! (all coordinates) 110 106 ! 111 IF ( l n_zps ) THEN !== zps-coordinate ==! (partial bottom-steps)107 IF ( ld_zps ) THEN !== zps-coordinate ==! (partial bottom-steps) 112 108 ! 113 109 ze3min = 0.1_wp * rn_e3 -
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/LOCK_EXCHANGE/MY_SRC/usrdef_zgr.F90
r9125 r9135 15 15 !!--------------------------------------------------------------------- 16 16 USE oce ! ocean variables 17 USE dom_oce , ONLY: ln_zco, ln_zps, ln_sco ! ocean space and time domain18 17 USE usrdef_nam ! User defined : namelist variables 19 18 ! … … 67 66 ! 68 67 ! 69 ! type of vertical coordinate 68 ! type of vertical coordinate ==>>> here LOCK EXCHANGE : flat bottom always 70 69 ! --------------------------- 71 ! set in usrdef_nam.F90 by reading the namusr_def namelist only ln_zco 72 ln_zco = .TRUE. ! z-partial-step coordinate 73 ln_zps = .FALSE. ! z-partial-step coordinate 74 ln_sco = .FALSE. ! s-coordinate 70 ld_zco = .TRUE. ! z-partial-step coordinate 71 ld_zps = .FALSE. ! z-partial-step coordinate 72 ld_sco = .FALSE. ! s-coordinate 75 73 ld_isfcav = .FALSE. ! ISF Ice Shelves Flag 76 74 ! -
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/OVERFLOW/MY_SRC/usrdef_zgr.F90
r9125 r9135 15 15 !!--------------------------------------------------------------------- 16 16 USE oce ! ocean variables 17 USE dom_oce , ONLY: ln_zco, ln_zps, ln_sco ! ocean space and time domain18 17 USE dom_oce , ONLY: mi0, mi1, nimpp, njmpp ! ocean space and time domain 19 18 USE dom_oce , ONLY: glamt ! ocean space and time domain … … 51 50 !! 52 51 !!---------------------------------------------------------------------- 53 LOGICAL , INTENT( out) :: ld_zco, ld_zps, ld_sco ! vertical coordinate flags54 LOGICAL , INTENT( out) :: ld_isfcav ! under iceshelf cavity flag55 REAL(wp), DIMENSION(:) , INTENT( out) :: pdept_1d, pdepw_1d ! 1D grid-point depth [m]56 REAL(wp), DIMENSION(:) , INTENT( out) :: pe3t_1d , pe3w_1d ! 1D grid-point depth [m]57 REAL(wp), DIMENSION(:,:,:), INTENT( out) :: pdept, pdepw ! grid-point depth [m]58 REAL(wp), DIMENSION(:,:,:), INTENT( out) :: pe3t , pe3u , pe3v , pe3f ! vertical scale factors [m]59 REAL(wp), DIMENSION(:,:,:), INTENT( out) :: pe3w , pe3uw, pe3vw ! i-scale factors60 INTEGER , DIMENSION(:,:) , INTENT( out) :: k_top, k_bot ! first & last ocean level52 LOGICAL , INTENT(in ) :: ld_zco, ld_zps, ld_sco ! vertical coordinate flags ( read in namusr_def ) 53 LOGICAL , INTENT( out) :: ld_isfcav ! under iceshelf cavity flag 54 REAL(wp), DIMENSION(:) , INTENT( out) :: pdept_1d, pdepw_1d ! 1D grid-point depth [m] 55 REAL(wp), DIMENSION(:) , INTENT( out) :: pe3t_1d , pe3w_1d ! 1D grid-point depth [m] 56 REAL(wp), DIMENSION(:,:,:), INTENT( out) :: pdept, pdepw ! grid-point depth [m] 57 REAL(wp), DIMENSION(:,:,:), INTENT( out) :: pe3t , pe3u , pe3v , pe3f ! vertical scale factors [m] 58 REAL(wp), DIMENSION(:,:,:), INTENT( out) :: pe3w , pe3uw, pe3vw ! i-scale factors 59 INTEGER , DIMENSION(:,:) , INTENT( out) :: k_top, k_bot ! first & last ocean level 61 60 ! 62 61 INTEGER :: ji, jj, jk ! dummy indices … … 118 117 ! 119 118 ! 120 IF ( l n_sco ) THEN !== s-coordinate ==! (terrain-following coordinate)119 IF ( ld_sco ) THEN !== s-coordinate ==! (terrain-following coordinate) 121 120 ! 122 121 k_bot(:,:) = jpkm1 * k_top(:,:) !* bottom ocean = jpk-1 (here use k_top as a land mask) … … 139 138 ! 140 139 ! 141 IF ( l n_zco ) THEN !== z-coordinate ==! (step-like topography)140 IF ( ld_zco ) THEN !== z-coordinate ==! (step-like topography) 142 141 ! 143 142 ! !* bottom ocean compute from the depth of grid-points … … 161 160 ! 162 161 ! 163 IF ( l n_zps ) THEN !== zps-coordinate ==! (partial bottom-steps)162 IF ( ld_zps ) THEN !== zps-coordinate ==! (partial bottom-steps) 164 163 ! 165 164 ze3min = 0.1_wp * rn_dz -
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/SAS_BIPER/MY_SRC/usrdef_zgr.F90
r9124 r9135 14 14 !!--------------------------------------------------------------------- 15 15 USE oce ! ocean variables 16 USE dom_oce , ONLY: ln_zco, ln_zps, ln_sco ! ocean space and time domain17 16 USE usrdef_nam ! User defined : namelist variables 18 17 ! … … 64 63 ! 65 64 ! 66 ! type of vertical coordinate 65 ! type of vertical coordinate ==>>> here SAS_BIPER : slab ocean always 67 66 ! --------------------------- 68 67 ld_zco = .TRUE. ! z-full-step coordinate -
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/usrdef_zgr.F90
r9125 r9135 15 15 !!--------------------------------------------------------------------- 16 16 USE oce ! ocean variables 17 USE dom_oce , ONLY: ln_zco, ln_zps, ln_sco ! ocean space and time domain18 17 USE dom_oce , ONLY: ht_0, mi0, mi1, nimpp, njmpp, & 19 18 & mj0, mj1, glamt, gphit ! ocean space and time domain … … 74 73 ! 75 74 ! 76 ! type of vertical coordinate 75 ! type of vertical coordinate ==>>> here WAD_TEST_CASES : s-coordinate always 77 76 ! --------------------------- 78 ! set in usrdef_nam.F90 by reading the namusr_def namelist only ln_zco 79 ln_zco = .FALSE. ! z-partial-step coordinate 80 ln_zps = .FALSE. ! z-partial-step coordinate 81 ln_sco = .TRUE. ! s-coordinate 77 ld_zco = .FALSE. ! z-partial-step coordinate 78 ld_zps = .FALSE. ! z-partial-step coordinate 79 ld_sco = .TRUE. ! s-coordinate 82 80 ld_isfcav = .FALSE. ! ISF Ice Shelves Flag 83 81 ! … … 279 277 ! 280 278 ! 281 IF ( l n_sco ) THEN !== s-coordinate ==! (terrain-following coordinate)279 IF ( ld_sco ) THEN !== s-coordinate ==! (terrain-following coordinate) 282 280 ! 283 281 ht_0 = zht
Note: See TracChangeset
for help on using the changeset viewer.