Changeset 899 for trunk/NEMO/C1D_SRC/c1d.F90

Timestamp:

2008-04-22T18:15:19+02:00 (16 years ago)

Author:

rblod

Message:

First set of modifications related to 1D update : cometic changes, see ticket #117

File:

• trunk/NEMO/C1D_SRC/c1d.F90 (moved) (moved from trunk/NEMO/C1D_SRC/ini1d.F90) (3 diffs)

trunk/NEMO/C1D_SRC/c1d.F90

@@ -4 +4 @@
    !! Ocean state   :  1D initialization
    !!=====================================================================
-#if defined key_cfg_1d
+#if defined key_c1d
    !!----------------------------------------------------------------------
-   !!   'key_cfg_1d'               1D Configuration
+   !!   'key_cf1d'               1D Configuration
    !!----------------------------------------------------------------------
    !!   init_1d   : initial mask
@@ -19 +19 @@
 
    !! * Share Module variables
-   LOGICAL, PUBLIC, PARAMETER ::  lk_cfg_1d = .TRUE.       !: 1D flag
+   LOGICAL, PUBLIC, PARAMETER ::  lk_c1d = .TRUE.       !: 1D flag
 
    !! * Routine accessibility
@@ -60 +60 @@
    !!   Default key                                     NO 1D Config
    !!----------------------------------------------------------------------
-   LOGICAL , PUBLIC, PARAMETER ::   lk_cfg_1d = .FALSE.    !: internal damping flag
+   LOGICAL , PUBLIC, PARAMETER ::   lk_c1d = .FALSE.    !: internal damping flag
 CONTAINS
    SUBROUTINE init_1d       ! Empty routine