source:
tags/nemo_v1_13_beta/NEMO/OFF_SRC/DYN/dynspg_oce.F90
@
7731
Last change on this file since 7731 was 379, checked in by opalod, 18 years ago | |
---|---|
|
|
File size: 1.4 KB |
Line | |
---|---|
1 | MODULE dynspg_oce |
2 | !!====================================================================== |
3 | !! *** MODULE dynspg_oce *** |
4 | !! Ocean dynamics: surface pressure gradient trend |
5 | !!====================================================================== |
6 | !! OPA 9.0 , LOCEAN-IPSL (2005) |
7 | !! $Header$ |
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.