source: trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obc_par_TROP12.h90 @ 22

Last change on this file since 22 was 12, checked in by cholod, 12 years ago

Add par_TROP12.h90 and obc_par_TROP12.h90 files
File size: 3.7 KB
Line 
1   !!----------------------------------------------------------------------
2   !!                  ***  obc_par_TROP12.h90  ***
3   !!----------------------------------------------------------------------
4   !! open boundary parameter : Tropical Channel R025 configuration
5   !!---------------------------------------------------------------------
6     INTEGER, PARAMETER ::     &  !: time dimension of the BCS fields on input
7      jptobc  =       2
8
9   !! * EAST open boundary
10   LOGICAL, PARAMETER ::     &  !:
11      lp_obc_east = .false.     !: to active or not the East open boundary
12
13     INTEGER   &
14#if !defined key_agrif
15     , PARAMETER   &
16#endif
17    ::     &
18      jpieob  = jpiglo-2,    &  !: i-localization of the East open boundary (must be ocean U-point)
19      jpjed   =        2,    &  !: j-starting indice of the East open boundary (must be land T-point)
20      jpjef   = jpjglo-1,    &  !: j-ending   indice of the East open boundary (must be land T-point)
21      jpjedp1 =  jpjed+1,    &  !: first ocean point         "                 "
22      jpjefm1 =  jpjef-1        !: last  ocean point         "                 "
23
24   !! * WEST open boundary
25   LOGICAL, PARAMETER ::     &  !:
26      lp_obc_west = .FALSE.     !: to active or not the West open boundary
27     INTEGER   &
28#if !defined key_agrif
29     , PARAMETER   &
30#endif
31    ::     &
32      jpiwob  =        2,    &  !: i-localization of the West open boundary (must be ocean U-point)
33      jpjwd   =        2,    &  !: j-starting indice of the West open boundary (must be land T-point)
34      jpjwf   = jpjglo-1,    &  !: j-ending   indice of the West open boundary (must be land T-point)
35      jpjwdp1 =  jpjwd+1,    &  !: first ocean point         "                 "
36      jpjwfm1 =  jpjwf-1        !: last  ocean point         "                 "
37
38   !! * NORTH open boundary
39   LOGICAL, PARAMETER ::     &  !:
40      lp_obc_north = .TRUE.     !: TROP12 to active or not the North open boundary
41     INTEGER   &
42#if !defined key_agrif
43     , PARAMETER   &
44#endif
45    ::     &
46      jpjnob  = jpjglo-2,    &  !: j-localization of the North open boundary (must be ocean V-point)
47      jpind   =        1,    &  !: i-starting indice of the North open boundary (must be land T-point)
48      jpinf   =   jpiglo,    &  !: i-ending   indice of the North open boundary (must be land T-point)
49      jpindp1 =    jpind,    &  !: first ocean point         "                 "
50      jpinfm1 =    jpinf        !: last  ocean point         "                 "
51
52   !! * SOUTH open boundary
53   LOGICAL, PARAMETER ::     &  !:
54      lp_obc_south = .TRUE.     !: INDICE to active or not the South open boundary
55     INTEGER   &
56#if !defined key_agrif
57     , PARAMETER   &
58#endif
59    ::     &
60      jpjsob  =       2,    &  !: j-localization of the South open boundary (must be ocean V-point)
61      jpisd  =        1,    &  !: i-starting indice of the South open boundary (must be land T-point)
62      jpisf  =   jpiglo,    &  !: i-ending   indice of the South open boundary (must be land T-point)
63      jpisdp1 =   jpisd,    &  !: first ocean point         "                 "
64      jpisfm1 =   jpisf        !: last  ocean point         "                 "
65   
66   !! * CHOSE WHERE YOU WANT TO LOCATE THE BAROTROPIC CORRECTION VELOCITY
67   !chd IND025
68   LOGICAL, PARAMETER ::     &  !:
69        lp_obc_east_barotp_corr  = .FALSE.,   & !:
70        lp_obc_west_barotp_corr  = .FALSE.,   & !:
71        lp_obc_north_barotp_corr = .FALSE.,   & !:
72        lp_obc_south_barotp_corr = .TRUE.       !:
73
74   INTEGER, PARAMETER ::     &  !:
75      jpnic = 2700              !: maximum number of isolated coastlines points
76   !!---------------------------------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.