source:
NEMO/branches/UKMO/NEMO_4.0.2_mirror/src/TOP/PISCES/SED/sed_oce.F90
@
12658
Last change on this file since 12658 was 12658, checked in by cguiavarch, 4 years ago | |
---|---|
File size: 1.2 KB |
Rev | Line | |
---|---|---|
[10225] | 1 | MODULE sed_oce |
2 | !!====================================================================== | |
3 | !! *** sed *** | |
4 | !! Sediment : set sediment global variables | |
5 | !!====================================================================== | |
6 | ||
7 | !! History : | |
8 | !! ! 06-12 (C. Ethe) Orignal | |
9 | !!---------------------------------------------------------------------- | |
10 | USE par_sed | |
11 | USE trc, ONLY : profsed | |
12 | ||
13 | IMPLICIT NONE | |
14 | PUBLIC | |
15 | ||
16 | PUBLIC sed_oce_alloc | |
17 | ||
18 | REAL(wp), PUBLIC, DIMENSION(: ), ALLOCATABLE :: profsedw !: depth of middle of each layer | |
19 | ||
[12658] | 20 | !! $Id$ |
[10225] | 21 | CONTAINS |
22 | ||
23 | INTEGER FUNCTION sed_oce_alloc() | |
24 | !!------------------------------------------------------------------- | |
25 | !! *** ROUTINE sed_alloc *** | |
26 | !!------------------------------------------------------------------- | |
[10425] | 27 | USE lib_mpp, ONLY: ctl_stop |
[10225] | 28 | !!------------------------------------------------------------------- |
29 | ! | |
30 | ALLOCATE( profsed(jpksed) , profsedw(jpksed) , STAT=sed_oce_alloc ) | |
31 | ||
[10425] | 32 | IF( sed_oce_alloc /= 0 ) CALL ctl_stop( 'STOP', 'sed_oce_alloc: failed to allocate arrays' ) |
[10225] | 33 | ! |
34 | END FUNCTION sed_oce_alloc | |
35 | ||
36 | END MODULE sed_oce |
Note: See TracBrowser
for help on using the repository browser.