Changeset 7277 for branches/2016/dev_CNRS_2016/NEMOGCM/NEMO/LIM_SRC_2/dom_ice_2.F90

Timestamp:

2016-11-21T09:55:07+01:00 (8 years ago)

Author:

flavoni

Message:

update 2016 branch with simplif-2

File:

• branches/2016/dev_CNRS_2016/NEMOGCM/NEMO/LIM_SRC_2/dom_ice_2.F90 (modified) (2 diffs)

branches/2016/dev_CNRS_2016/NEMOGCM/NEMO/LIM_SRC_2/dom_ice_2.F90

@@ -27 +27 @@
       !                                        !  (otherwise = jpj+10 (SH) or -10 (SH) )
 
-   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)         ::   fs2cor , fcor     !: coriolis factor and coeficient
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)         ::   covrai            !: sine of geographic latitude
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)         ::   area              !: surface of grid cell 
@@ -48 +47 @@
       ierr(:) = 0
       !
-      ALLOCATE( fs2cor(jpi,jpj)     , fcor(jpi,jpj) ,                                   &
-         &      covrai(jpi,jpj)     , area(jpi,jpj) , tms(jpi,jpj) , tmu(jpi,jpj) ,     &
+      ALLOCATE( covrai(jpi,jpj)     , area(jpi,jpj) , tms(jpi,jpj) , tmu(jpi,jpj) ,     &
          &      wght  (jpi,jpj,2,2)                                               , STAT=ierr(1) )
          !