Changeset 3564 for trunk/NEMOGCM/NEMO/LIM_SRC_2/dom_ice_2.F90

Timestamp:

2012-11-15T18:42:30+01:00 (11 years ago)

Author:

rblod

Message:

fix output average with EVP, see ticket #908

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_2/dom_ice_2.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/LIM_SRC_2/dom_ice_2.F90

@@ -32 +32 @@
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)         ::   tms    , tmu      !: temperature and velocity points masks
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:)     ::   wght              !: weight of the 4 neighbours to compute averages
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)         ::   tmv               !: y-velocity mask used for evp rheology 
 
-
-# if defined key_lim2_vp
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:)     ::   akappa , bkappa   !: first and third group of metric coefficients
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:,:,:,:) ::   alambd            !: second group of metric coefficients
-# else
-   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)         ::   tmv    , tmf      !: y-velocity and F-points masks
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)         ::   tmf               !: F-points masks
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)         ::   tmi               !: ice mask: =1 if ice thick > 0
-# endif
    !!----------------------------------------------------------------------
    CONTAINS