Changeset 1608 for trunk/NEMO/LIM_SRC_3/dom_ice.F90

Timestamp:

2009-08-12T10:05:30+02:00 (15 years ago)

Author:

ctlod

Message:

nemo 3.1 LIM3 : remove useless akappa and alambd arrays, plus small cosmetic, see ticket: #400

File:

• trunk/NEMO/LIM_SRC_3/dom_ice.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC_3/dom_ice.F90

@@ -2 +2 @@
    !!======================================================================
    !!                   ***  MODULE  dom_ice  ***
-   !! LIM Sea Ice :   Domain  variables
+   !! LIM-3 Sea Ice :   Domain  variables
    !!======================================================================
-   !! History :
-   !!   2.0  !  03-08  (C. Ethe)  Free form and module
-   !!   3.0  !  03-08  (M. Vancoppenolle), Ice cats, salinity and EVP-C
+   !! History :  3.0  ! 2003-08  (M. Vancoppenolle)  LIM-3
    !!----------------------------------------------------------------------
-   !!   LIM 3.0, UCL-ASTR-LOCEAN-IPSL (2005)
-   !! $Id$
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
-   !!----------------------------------------------------------------------
-   !! * Modules used
    USE par_ice
 
@@ -18 +11 @@
    PRIVATE
 
-   !! * Share module variables
-   LOGICAL, PUBLIC ::   &  !:
-      l_jeq = .TRUE.       !: Equator inside the domain flag
+   LOGICAL, PUBLIC ::   l_jeq = .TRUE.       !: Equator inside the domain flag
 
-   INTEGER, PUBLIC ::   &  !:
-      njeq , njeqm1        !: j-index of the equator if it is inside the domain
-   !                    !  (otherwise = jpj+10 (SH) or -10 (SH) )
+   INTEGER, PUBLIC ::   njeq , njeqm1        !: j-index of the equator if it is inside the domain
 
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &  !:
-      fs2cor ,          &  !: coriolis factor
-      fcor   ,          &  !: coriolis coefficient
-      covrai ,          &  !: sine of geographic latitude
-      area   ,          &  !: surface of grid cell 
-      tms , tmi ,       &  !: temperature mask, mask for stress
-      tmu , tmv ,       &  !: mask at u-v velocity points
-      tmf
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   fs2cor     !: coriolis factor
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   fcor       !: coriolis coefficient
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   covrai     !: sine of geographic latitude
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   area       !: surface of grid cell 
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   tms, tmi   !: temperature mask, mask for stress
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   tmu, tmv   !: mask at u and v velocity points
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   tmf        !: mask at f-point
 
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2,2) ::   &  !:
-      wght   ,          &  !: weight of the 4 neighbours to compute averages
-      akappa ,          &  !: first group of metric coefficients
-      bkappa               !: third group of metric coefficients
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2,2) ::   wght     !: weight of the 4 neighbours to compute averages
 
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2,2,2,2) ::   &  !:
-      alambd               !: second group of metric coefficients
-
+   !!----------------------------------------------------------------------
+   !! NEMO/LIM 3.2, UCL-ASTR-LOCEAN-IPSL (2009)
+   !! $Id$
+   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!======================================================================
 END MODULE dom_ice