source:
tags/nemo_v1_08/NEMO/OFF_SRC/DYN/dynspg_fsc_atsk.F90
@
3025
Last change on this file since 3025 was 343, checked in by opalod, 19 years ago | |
---|---|
|
|
File size: 1.5 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 , LOCEAN-IPSL (2005) |
12 | !! $Header$ |
13 | !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt |
14 | !!---------------------------------------------------------------------- |
15 | !! * Modules used |
16 | |
17 | IMPLICIT NONE |
18 | PRIVATE |
19 | |
20 | !! * Shares module variables |
21 | LOGICAL, PUBLIC, PARAMETER :: lk_dynspg_fsc_tsk = .TRUE. !: free surf. cst vol. flag |
22 | |
23 | #else |
24 | !!---------------------------------------------------------------------- |
25 | !! Default case : Empty module |
26 | !!---------------------------------------------------------------------- |
27 | LOGICAL, PUBLIC, PARAMETER :: lk_dynspg_fsc_tsk = .FALSE. !: free surf. cst vol. flag |
28 | #endif |
29 | !!====================================================================== |
30 | END MODULE dynspg_fsc_atsk |
Note: See TracBrowser
for help on using the repository browser.