source:
trunk/NEMO/OFF_SRC/DYN/dynspg_oce.F90
@
973
Last change on this file since 973 was 719, checked in by ctlod, 17 years ago | |
---|---|
|
|
File size: 1.4 KB |
Rev | Line | |
---|---|---|
[379] | 1 | MODULE dynspg_oce |
2 | !!====================================================================== | |
3 | !! *** MODULE dynspg_oce *** | |
4 | !! Ocean dynamics: surface pressure gradient trend | |
5 | !!====================================================================== | |
6 | !! OPA 9.0 , LOCEAN-IPSL (2005) | |
[719] | 7 | !! $Header$ |
[379] | 8 | !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt |
9 | !!---------------------------------------------------------------------- | |
10 | ||
11 | IMPLICIT NONE | |
12 | PRIVATE | |
13 | ||
14 | #if defined key_dynspg_rl | |
15 | !!---------------------------------------------------------------------- | |
16 | !! 'key_dynspg_rl' rigid lid | |
17 | !!---------------------------------------------------------------------- | |
18 | !! * Shared module variables | |
19 | LOGICAL, PUBLIC, PARAMETER :: lk_dynspg_rl = .TRUE. !: rigid flag flag | |
20 | ||
21 | #elif defined key_dynspg_flt || defined key_dynspg_ts || defined key_dynspg_exp | |
22 | !!---------------------------------------------------------------------- | |
23 | !! Default case : free surface | |
24 | !! update the momentum trend with the surface pressure | |
25 | !! gradient in the free surface case with vector | |
26 | !! optimization | |
27 | !!---------------------------------------------------------------------- | |
28 | !! * Shared module variables | |
29 | LOGICAL, PUBLIC, PARAMETER :: lk_dynspg_rl = .FALSE. !: rigid flag | |
30 | #endif | |
31 | ||
32 | !!====================================================================== | |
33 | END MODULE dynspg_oce |
Note: See TracBrowser
for help on using the repository browser.