source: branches/nemo_v3_3_beta/NEMOGCM/NEMO/C1D_SRC/c1d.F90 @ 2382

Last change on this file since 2382 was 2382, checked in by gm, 10 years ago

v3.3beta: C1D - bug correction to compile with key_c1d

  • Property svn:keywords set to Id
File size: 982 bytes
RevLine 
[900]1MODULE c1d
[253]2   !!======================================================================
[900]3   !!                     ***  MODULE  c1d  ***
4   !! Ocean domain  :  1D configuration
[253]5   !!=====================================================================
[900]6   !! History :   2.0  !  2004-09  (C. Ethe)  Original code
7   !!             3.0  !  2008-04 (G. Madec)  adaptation to SBC
[253]8   !!----------------------------------------------------------------------
9
10   IMPLICIT NONE
11   PRIVATE
12
[900]13#if defined key_c1d
14   LOGICAL, PUBLIC, PARAMETER ::   lk_c1d = .TRUE.    !: 1D config. flag activated
[253]15#else
[900]16   LOGICAL, PUBLIC, PARAMETER ::   lk_c1d = .FALSE.   !: 1D config. flag de-activated
[253]17#endif
18
[900]19   !!----------------------------------------------------------------------
[2287]20   !! NEMO/C1D 3.3 , NEMO Consortium (2010)
[1146]21   !! $Id$
[2382]22   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
23   !!======================================================================
[900]24END MODULE c1d
Note: See TracBrowser for help on using the repository browser.