source:
trunk/NEMO/OFF_SRC/DYN/dynspg_fsc_atsk.F90
@
326
Last change on this file since 326 was 325, checked in by opalod, 19 years ago | |
---|---|
|
|
File size: 1.4 KB |
Rev | Line | |
---|---|---|
[325] | 1 | MODULE dynspg_fsc_atsk |
2 | !!====================================================================== | |
3 | !! *** MODULE dynspg_fsc_atsk *** | |
4 | !! Ocean dynamics: surface pressure gradient trend | |
5 | !!====================================================================== | |
6 | #if ( defined key_dynspg_fsc && defined key_autotasking ) || defined key_esopa | |
7 | !!---------------------------------------------------------------------- | |
8 | !! 'key_dynspg_fsc' & 'key_autotasking' free surface cst volume | |
9 | !! j-k-i loop (j-slab) | |
10 | !!---------------------------------------------------------------------- | |
11 | !! OPA 9.0 , LODYC-IPSL (2003) | |
12 | !!---------------------------------------------------------------------- | |
13 | !! * Modules used | |
14 | ||
15 | IMPLICIT NONE | |
16 | PRIVATE | |
17 | ||
18 | !! * Shares module variables | |
19 | LOGICAL, PUBLIC, PARAMETER :: lk_dynspg_fsc_tsk = .TRUE. !: free surf. cst vol. flag | |
20 | ||
21 | #else | |
22 | !!---------------------------------------------------------------------- | |
23 | !! Default case : Empty module | |
24 | !!---------------------------------------------------------------------- | |
25 | LOGICAL, PUBLIC, PARAMETER :: lk_dynspg_fsc_tsk = .FALSE. !: free surf. cst vol. flag | |
26 | #endif | |
27 | !!====================================================================== | |
28 | END MODULE dynspg_fsc_atsk |
Note: See TracBrowser
for help on using the repository browser.