Changeset 2077 for branches/devmercator2010/NEMO/LIM_SRC_2/limtrp_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/limtrp_2.F90 (modified) (3 diffs)

branches/devmercator2010/NEMO/LIM_SRC_2/limtrp_2.F90

@@ -67 +67 @@
       !!        !  01-05 (G. Madec, R. Hordoir) opa norm
       !!   2.0  !  04-01 (G. Madec, C. Ethe)  F90, mpp
-      !!   3.3  !  09-05  (G.Garric) addition of the lim2_evp case
       !!---------------------------------------------------------------------
       INTEGER, INTENT(in) ::   kt     ! number of iteration
@@ -108 +107 @@
          ! zvbord factor between 1 and 2 to take into account slip or no-slip boundary conditions.        
          zvbord = 1.0 + ( 1.0 - bound )
-#if defined key_lim2_vp
          DO jj = 1, jpjm1
             DO ji = 1, jpim1   ! NO vector opt.
@@ -118 +116 @@
          CALL lbc_lnk( zui_u, 'U', -1. )
          CALL lbc_lnk( zvi_v, 'V', -1. )
-#else
-        zui_u(:,:)=u_ice(:,:)
-        zvi_v(:,:)=v_ice(:,:)
-#endif
 
          ! CFL test for stability