Changeset 2382 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/C1D_SRC/dyncor_c1d.F90

Timestamp:

2010-11-13T14:08:12+01:00 (13 years ago)

Author:

gm

Message:

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

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/C1D_SRC/dyncor_c1d.F90 (modified) (3 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/C1D_SRC/dyncor_c1d.F90

@@ -31 +31 @@
    !! NEMO/C1D 3.3 , NEMO Consortium (2010)
    !! $Id$ 
-   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
+   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
-
 CONTAINS
 
@@ -40 +39 @@
       !!                   ***  ROUTINE cor_c1d  ***
       !! 
-      !! ** Purpose : Compute the Coriolis factor at T-point
+      !! ** Purpose : set the Coriolis factor at T-point
       !!----------------------------------------------------------------------
       REAL(wp) ::   zphi0, zbeta, zf0         !  temporary scalars
@@ -83 +82 @@
       !!                   ***  ROUTINE dyn_cor_c1d  ***
       !! 
-      !! ** Purpose :   Compute the now total vorticity trend and add it to 
-      !!               the general trend of the momentum equation
-      !!
-      !! ** Method  :
-      !!
-      !! History :
-      !!   9.0  !  04-09  (C. Ethe) 1D configuration
+      !! ** Purpose :   Compute the now Coriolis trend and add it to 
+      !!               the general trend of the momentum equation in 1D case.
       !!----------------------------------------------------------------------
       INTEGER, INTENT( in ) ::   kt   ! ocean time-step index