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/UKMO/NEMO_4.0.2_mirror/src/TOP/PISCES/SED – NEMO

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

UKMO/NEMO_4.0.2_mirror : Remove SVN keywords.

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$
21CONTAINS
22
23   INTEGER FUNCTION sed_oce_alloc()
24      !!-------------------------------------------------------------------
25      !!                    *** ROUTINE sed_alloc ***
26      !!-------------------------------------------------------------------
27      USE lib_mpp, ONLY: ctl_stop
28      !!-------------------------------------------------------------------
29      !
30      ALLOCATE( profsed(jpksed) , profsedw(jpksed) , STAT=sed_oce_alloc )
31
32      IF( sed_oce_alloc /= 0 )   CALL ctl_stop( 'STOP', '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.