source:
NEMO/branches/UKMO/dev_r9950_GO8_package/src/TOP/PISCES/SED/sed_oce.F90
@
10322
| Last change on this file since 10322 was 10322, checked in by davestorkey, 5 years ago | |
|---|---|
| File size: 1.2 KB | |
| Line | |
|---|---|
| 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 | |
| 20 | !! $Id$ |
| 21 | CONTAINS |
| 22 | |
| 23 | INTEGER FUNCTION sed_oce_alloc() |
| 24 | !!------------------------------------------------------------------- |
| 25 | !! *** ROUTINE sed_alloc *** |
| 26 | !!------------------------------------------------------------------- |
| 27 | USE lib_mpp, ONLY: ctl_warn |
| 28 | !!------------------------------------------------------------------- |
| 29 | ! |
| 30 | ALLOCATE( profsed(jpksed) , profsedw(jpksed) , STAT=sed_oce_alloc ) |
| 31 | |
| 32 | IF( sed_oce_alloc /= 0 ) CALL ctl_warn('sed_oce_alloc: failed to allocate arrays') |
| 33 | ! |
| 34 | END FUNCTION sed_oce_alloc |
| 35 | |
| 36 | END MODULE sed_oce |
Note: See TracBrowser
for help on using the repository browser.
