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 |
Line | |
---|---|
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.