Changeset 2077 for branches/devmercator2010/NEMO/LIM_SRC_2/limsbc_2.F90

Timestamp:

2010-09-09T10:43:51+02:00 (14 years ago)

Author:

cbricaud

Message:

commit change from DEV_r1784_3DF

File:

• branches/devmercator2010/NEMO/LIM_SRC_2/limsbc_2.F90 (modified) (3 diffs)

branches/devmercator2010/NEMO/LIM_SRC_2/limsbc_2.F90

@@ -7 +7 @@
    !!           02-07 (C. Ethe, G. Madec) re-writing F90
    !!           06-07 (G. Madec) surface module
-   !!           09-05 (G.Garric) addition of the lim2_evp case
    !!----------------------------------------------------------------------
 #if defined key_lim2
@@ -89 +88 @@
       REAL(wp) ::   zfrldu, zfrldv   ! lead fraction at U- & V-points
       REAL(wp) ::   zutau , zvtau    ! lead fraction at U- & V-points
-!!!      REAL(wp) ::   zutaui , zvtaui  ! lead fraction at U- & V-points
       REAL(wp) ::   zu_io , zv_io    ! 2 components of the ice-ocean velocity
 ! interface 2D --> 3D
@@ -277 +275 @@
             DO ji = 2, jpim1   ! NO vector opt.
                ! ... components of ice-ocean stress at U and V-points  (from I-point values)
-#if defined key_lim2_vp
                zutau  = 0.5 * ( ztio_u(ji+1,jj) + ztio_u(ji+1,jj+1) )
                zvtau  = 0.5 * ( ztio_v(ji,jj+1) + ztio_v(ji+1,jj+1) )
-#else
-               zutau  = ztio_u(ji,jj)
-               zvtau  = ztio_v(ji,jj)
-#endif
                ! ... open-ocean (lead) fraction at U- & V-points (from T-point values)
                zfrldu = 0.5 * ( frld(ji,jj) + frld(ji+1,jj  ) )