- Timestamp:
- 2011-07-11T12:53:56+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/UKMO_MERCATOR_obc_bdy_merge/NEMOGCM/NEMO/OPA_SRC/OBC/obc_par.F90
r2715 r2797 1 1 MODULE obc_par 2 !!====================================================================== ========3 !! *** MODULE obc_par ***4 !! Open Boundary Cond. : define related parameters5 !!====================================================================== ========6 !! history : OPA ! 1991-01 (CLIPPER) Original code7 !! NEMO 1.0 ! 2002-04 (C. Talandier) modules8 !! - ! 2004/06 (F. Durand) jptobc is defined as a parameter2 !!====================================================================== 3 !! *** MODULE obc_par *** 4 !! Unstructured Open Boundary Cond. : define related parameters 5 !!====================================================================== 6 !! History : 1.0 ! 2005-01 (J. Chanut, A. Sellar) Original code 7 !! 3.0 ! 2008-04 (NEMO team) add in the reference version 8 !! 3.3 ! 2010-09 (D. Storkey and E. O'Dea) update for Shelf configurations 9 9 !!---------------------------------------------------------------------- 10 #if defined key_obc10 #if defined key_obc 11 11 !!---------------------------------------------------------------------- 12 !! 'key_obc' : 12 !! 'key_obc' : Unstructured Open Boundary Condition 13 13 !!---------------------------------------------------------------------- 14 USE par_oce ! ocean parameters15 14 16 15 IMPLICIT NONE 17 16 PUBLIC 18 17 19 #if ! defined key_agrif 20 LOGICAL, PUBLIC, PARAMETER :: lk_obc = .TRUE. !: Ocean Boundary Condition flag 21 #else 22 LOGICAL, PUBLIC :: lk_obc = .TRUE. !: Ocean Boundary Condition flag 23 #endif 18 LOGICAL, PUBLIC, PARAMETER :: lk_obc = .TRUE. !: Unstructured Ocean Boundary Condition flag 19 INTEGER, PUBLIC, PARAMETER :: jp_obc = 10 !: Maximum number of obc sets 20 INTEGER, PUBLIC, PARAMETER :: jpbtime = 1000 !: Max number of time dumps per file 21 INTEGER, PUBLIC, PARAMETER :: jpbgrd = 3 !: Number of horizontal grid types used (T, U, V) 24 22 25 # if defined key_eel_r5 26 !!---------------------------------------------------------------------- 27 !! 'key_eel_r5' : EEL R5 configuration 28 !!---------------------------------------------------------------------- 29 # include "obc_par_EEL_R5.h90" 30 31 # elif defined key_pomme_r025 32 !!---------------------------------------------------------------------- 33 !! 'key_pomme_r025' : POMME R025 configuration 34 !!---------------------------------------------------------------------- 35 # include "obc_par_POMME_R025.h90" 36 37 # else 38 !!--------------------------------------------------------------------- 39 !! open boundary parameter 40 !!--------------------------------------------------------------------- 41 INTEGER, PARAMETER :: jptobc = 2 !: time dimension of the BCS fields on input 42 43 !! * EAST open boundary 44 LOGICAL, PARAMETER :: lp_obc_east = .FALSE. !: to active or not the East open boundary 45 INTEGER & 46 #if !defined key_agrif 47 , PARAMETER & 48 #endif 49 :: & 50 jpieob = jpiglo-2, & !: i-localization of the East open boundary (must be ocean U-point) 51 jpjed = 2, & !: j-starting indice of the East open boundary (must be land T-point) 52 jpjef = jpjglo-1, & !: j-ending indice of the East open boundary (must be land T-point) 53 jpjedp1 = jpjed+1, & !: first ocean point " " 54 jpjefm1 = jpjef-1 !: last ocean point " " 55 56 !! * WEST open boundary 57 LOGICAL, PARAMETER :: lp_obc_west = .FALSE. !: to active or not the West open boundary 58 INTEGER & 59 #if !defined key_agrif 60 , PARAMETER & 61 #endif 62 :: & 63 jpiwob = 2, & !: i-localization of the West open boundary (must be ocean U-point) 64 jpjwd = 2, & !: j-starting indice of the West open boundary (must be land T-point) 65 jpjwf = jpjglo-1, & !: j-ending indice of the West open boundary (must be land T-point) 66 jpjwdp1 = jpjwd+1, & !: first ocean point " " 67 jpjwfm1 = jpjwf-1 !: last ocean point " " 68 69 !! * NORTH open boundary 70 LOGICAL, PARAMETER :: lp_obc_north = .FALSE. !: to active or not the North open boundary 71 INTEGER & 72 #if !defined key_agrif 73 , PARAMETER & 74 #endif 75 :: & 76 jpjnob = jpjglo-2, & !: j-localization of the North open boundary (must be ocean V-point) 77 jpind = 2, & !: i-starting indice of the North open boundary (must be land T-point) 78 jpinf = jpiglo-1, & !: i-ending indice of the North open boundary (must be land T-point) 79 jpindp1 = jpind+1, & !: first ocean point " " 80 jpinfm1 = jpinf-1 !: last ocean point " " 81 82 !! * SOUTH open boundary 83 LOGICAL, PARAMETER :: lp_obc_south = .FALSE. !: to active or not the South open boundary 84 INTEGER & 85 #if !defined key_agrif 86 , PARAMETER & 87 #endif 88 :: & 89 jpjsob = 2, & !: j-localization of the South open boundary (must be ocean V-point) 90 jpisd = 2, & !: i-starting indice of the South open boundary (must be land T-point) 91 jpisf = jpiglo-1, & !: i-ending indice of the South open boundary (must be land T-point) 92 jpisdp1 = jpisd+1, & !: first ocean point " " 93 jpisfm1 = jpisf-1 !: last ocean point " " 94 95 INTEGER, PARAMETER :: jpnic = 2700 !: maximum number of isolated coastlines points 96 97 # endif 98 23 !! Flags for choice of schemes 24 INTEGER, PUBLIC, PARAMETER :: jp_none = 0 !: Flag for no open boundary condition 25 INTEGER, PUBLIC, PARAMETER :: jp_frs = 1 !: Flag for Flow Relaxation Scheme 26 INTEGER, PUBLIC, PARAMETER :: jp_flather = 2 !: Flag for Flather 99 27 #else 100 28 !!---------------------------------------------------------------------- 101 !! Default option : NOopen boundary condition29 !! Default option : NO Unstructured open boundary condition 102 30 !!---------------------------------------------------------------------- 103 LOGICAL, PUBLIC, PARAMETER :: lk_obc = .FALSE. !:Ocean Boundary Condition flag31 LOGICAL, PUBLIC, PARAMETER :: lk_obc = .FALSE. !: Unstructured Ocean Boundary Condition flag 104 32 #endif 105 33 … … 107 35 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 108 36 !! $Id$ 109 !! Software governed by the CeCILL licence 37 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 110 38 !!====================================================================== 111 39 END MODULE obc_par
Note: See TracChangeset
for help on using the changeset viewer.
