Changeset 32 for trunk/NEMOGCM/NEMO/OPA_SRC/par_TROP12.h90
- Timestamp:
- 03/14/12 11:41:39 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/par_TROP12.h90
r12 r32 1 1 !!--------------------------------------------------------------------- 2 !! *** par_trop12.h90 *** 3 !! Ocean Domain : 0.25degrees resolution Tropical Channel4 !! ( 0RCA_R025configuration)2 !! *** par_trop12.h90 *** 3 !! Ocean Domain : 1/12 degrees resolution Tropical Channel 4 !! (TROP12 configuration) 5 5 !!--------------------------------------------------------------------- 6 6 !!---------------------------------------------------------------------- 7 7 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 8 !! $Id: par_ORCA_R2.h90 2715 2011-03-30 15:58:35Z rblod $ 8 !! $Id: par_ORCA_R2.h90 2715 2011-03-30 15:58:35Z rblod $ 9 9 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 10 10 !!---------------------------------------------------------------------- 11 12 !! Values set to pp_not_used indicates that this parameter is not used in THIS config. 13 !! Values set to pp_to_be_computed indicates that variables will be computed in domzgr 14 REAL,PARAMETER :: pp_not_used = 999999_wp , & 15 & pp_to_be_computed = 0._wp 16 17 !!--------------------------------------------------------------------- 18 !! Vertical Domain 19 !!--------------------------------------------------------------------- 20 # include "par_depth.h90" 21 22 !!--------------------------------------------------------------------- 23 !! Horizontal Domain 24 !!--------------------------------------------------------------------- 11 25 CHARACTER (len=16) & 12 26 #if !defined key_agrif … … 23 37 ! 24 38 jpidta = 4322, & 25 jpjdta = 1249 , &26 #if key_trop12==75 27 jpkdta = 75 , & !: number of levels > or = to jpk28 # else29 jpkdta = 46 , & !: number of levels > or = to jpk39 jpjdta = 1249 40 41 INTEGER & 42 #if !defined key_agrif 43 , PARAMETER & 30 44 #endif 45 :: & 31 46 ! total domain matrix size 32 47 jpiglo = jpidta, & !: first dimension of global domain --> i … … 36 51 jpjzoom = 1 , & !: in data indices 37 52 ! Domain characteristics 38 jperio = 1 !: lateral cond. type (between 0 and 6) 53 jperio = 1 !: lateral cond. type (between 0 and 6) 54 ! ! = 0 closed ; = 1 cyclic East-West 55 ! ! = 2 equatorial symmetric ; = 3 North fold T-point pivot 56 ! ! = 4 cyclic East-West AND North fold T-point pivot 57 ! ! = 5 North fold F-point pivot 58 ! ! = 6 cyclic East-West AND North fold F-point pivot 39 59 40 !! Values set to pp_not_used indicates that this parameter is not used in THIS config.41 !! Values set to pp_to_be_computed indicates that variables will be computed in domzgr42 REAL,PARAMETER :: pp_not_used = 999999_wp , &43 & pp_to_be_computed = 0._wp44 60 !! 45 61 !! Coefficients associated with the horizontal coordinate system (jphgr_msh /= 0 ) … … 69 85 ppe2_m = pp_not_used !: meridional grid-spacing (meters ) 70 86 71 !! Coefficients associated with the vertical coordinate system72 73 #if key_trop12==7574 REAL(wp), PARAMETER :: &75 & ppsur = -3958.951371276829_wp , & !: ORCA r1 coefficients76 & ppa0 = 103.9530096000000_wp , & !: (75 levels case)77 & ppa1 = 2.415951269000000_wp , & !:78 & ppkth = 15.35101370000000_wp , & !: (non dimensional): gives the approximate79 ! !: layer number above which stretching will80 ! !: be maximum. Usually of order jpk/2.81 & ppacr = 7.00000000000_wp !: (non dimensional): stretching factor82 ! !: for the grid. The higher zacr, the smaller83 ! !: the stretching.84 !!85 !! If both ppa0 ppa1 and ppsur are specified to pp_to_be_computed, then86 !! they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr87 !!88 REAL(wp), PARAMETER :: &89 & ppdzmin = pp_not_used , & !: (meters) vertical thickness of the top layer90 & pphmax = pp_not_used !: (meters) Maximum depth of the ocean gdepw(jpk)91 !!92 LOGICAL, PARAMETER :: &93 & ldbletanh = .TRUE. !: Use/do not use double tanf function for vertical coordinates94 REAL(wp), PARAMETER :: &95 & ppa2 = 100.7609285000000_wp , & !: Double tanh function parameters96 & ppkth2= 48.02989372000000_wp , & !:97 & ppacr2= 13.00000000000_wp !:98 !99 #else100 REAL(wp), PARAMETER :: &101 & ppsur = pp_to_be_computed , & !: Computed in domzgr, set ppdzmin and pphmax below102 & ppa0 = pp_to_be_computed , & !: " "103 & ppa1 = pp_to_be_computed , & !: " "104 !105 & ppkth = 23.563_wp , & !: (non dimensional): gives the approximate106 ! !: layer number above which stretching will107 ! !: be maximum. Usually of order jpk/2.108 & ppacr = 9.00000000000_wp !: (non dimensional): stretching factor109 ! !: for the grid. The highest zacr, the smallest110 ! !: the stretching.111 !!112 !! If both ppa0 ppa1 and ppsur are specified to pp_to_be_computed, then113 !! they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr114 !!115 REAL(wp), PARAMETER :: &116 & ppdzmin = 6._wp , & !: (meters) vertical thickness of the top layer117 & pphmax = 5750._wp !: (meters) Maximum depth of the ocean gdepw(jpk)118 !!119 LOGICAL, PARAMETER :: &120 & ldbletanh = .FALSE. !: Use/do not use double tanf function for vertical coordinates121 REAL(wp), PARAMETER :: &122 & ppa2 = pp_not_used , & !: Double tanh function parameters123 & ppkth2 = pp_not_used , & !:124 & ppacr2 = pp_not_used !:125 #endif126 87 !!---------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.