New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
sed_oce.F90 in NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/SED – NEMO

source: NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/PISCES/SED/sed_oce.F90 @ 10345

Last change on this file since 10345 was 10345, checked in by smasson, 5 years ago

dev_r10164_HPC09_ESIWACE_PREP_MERGE: merge with trunk@10344, see #2133

File size: 1.2 KB
Line 
1MODULE 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: sed.F90 7646 2017-02-06 09:25:03Z timgraham $
21CONTAINS
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
36END MODULE sed_oce
Note: See TracBrowser for help on using the repository browser.