Changeset 2076 for branches/devmercator2010/NEMO/LIM_SRC_2/limtrp_2.F90

Timestamp:

2010-09-08T18:17:25+02:00 (14 years ago)

Author:

cbricaud

Message:

add change dev_1784_EVP

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
@@ -107 +108 @@
          ! 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.
@@ -116 +118 @@
          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