Changeset 2119 for branches/dev_1784_EVP/NEMO/LIM_SRC_2/dom_ice_2.F90

Timestamp:

2010-09-24T15:19:32+02:00 (14 years ago)

Author:

cbricaud

Message:

bugfix

File:

• branches/dev_1784_EVP/NEMO/LIM_SRC_2/dom_ice_2.F90 (modified) (1 diff)

branches/dev_1784_EVP/NEMO/LIM_SRC_2/dom_ice_2.F90

@@ -22 +22 @@
 
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj)         ::   fs2cor , fcor     !: coriolis factor and coeficient
-   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)         ::   covrai            !: sine of geographic latitude
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj)         ::   area              !: surface of grid cell 
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj)         ::   tms    , tmu      !: temperature and velocity points masks
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2,2)     ::   wght              !: weight of the 4 neighbours to compute averages