New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
limrhg_2.F90 in branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2 – NEMO

source: branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_2/limrhg_2.F90 @ 2633

Last change on this file since 2633 was 2633, checked in by trackstand2, 13 years ago

Renamed wrk_use => wrk_in_use and wrk_release => wrk_not_released
  • Property svn:keywords set to Id
File size: 34.9 KB
Line 
1MODULE limrhg_2
2   !!======================================================================
3   !!                     ***  MODULE  limrhg_2  ***
4   !!   Ice rheology :  performs sea ice rheology
5   !!======================================================================
6   !! History :  0.0  !  1993-12  (M.A. Morales Maqueda.)  Original code
7   !!            1.0  !  1994-12  (H. Goosse)
8   !!            2.0  !  2003-12  (C. Ethe, G. Madec)  F90, mpp
9   !!             -   !  2006-08  (G. Madec)  surface module, ice-stress at I-point
10   !!             -   !  2009-09  (G. Madec)  Huge verctor optimisation
11   !!            3.3  !  2009-05  (G.Garric, C. Bricaud) addition of the lim2_evp case
12   !!----------------------------------------------------------------------
13#if defined   key_lim2   &&   defined key_lim2_vp
14   !!----------------------------------------------------------------------
15   !!   'key_lim2'                AND                   LIM-2 sea-ice model
16   !!   'key_lim2_vp'                                       VP ice rheology
17   !!----------------------------------------------------------------------
18   !!   lim_rhg_2   : computes ice velocities
19   !!----------------------------------------------------------------------
20   USE par_oce        ! ocean parameter
21   USE dom_oce        ! ocean space and time domain
22   USE sbc_oce        ! surface boundary condition: ocean variables
23   USE sbc_ice        ! surface boundary condition: ice variables
24   USE dom_ice_2      ! LIM2: ice domain
25   USE phycst         ! physical constant
26   USE ice_2          ! LIM2: ice variables
27   USE lbclnk         ! lateral boundary condition - MPP exchanges
28   USE lib_mpp        ! MPP library
29   USE in_out_manager ! I/O manager
30   USE prtctl         ! Print control
31
32   IMPLICIT NONE
33   PRIVATE
34
35   PUBLIC   lim_rhg_2         ! routine called by lim_dyn
36   PUBLIC   lim_rhg_alloc_2   ! routine called by lim_dyn_alloc_2
37
38   REAL(wp) ::   rzero   = 0._wp   ! constant value: zero
39   REAL(wp) ::   rone    = 1._wp   !            and  one
40
41   ! 2D workspaces for lim_rhg_2. Can't use wrk_nemo module for them because
42   ! extent in 2nd dimension is > jpj.
43   REAL(wp), SAVE, ALLOCATABLE, DIMENSION(:,:) ::   zu0, zv0
44   REAL(wp), SAVE, ALLOCATABLE, DIMENSION(:,:) ::   zu_n, zv_n
45   REAL(wp), SAVE, ALLOCATABLE, DIMENSION(:,:) ::   zu_a, zv_a
46   REAL(wp), SAVE, ALLOCATABLE, DIMENSION(:,:) ::   zviszeta, zviseta
47   REAL(wp), SAVE, ALLOCATABLE, DIMENSION(:,:) ::   zzfrld, zztms
48   REAL(wp), SAVE, ALLOCATABLE, DIMENSION(:,:) ::   zi1, zi2, zmasst, zpresh
49
50   !! * Substitutions
51#  include "vectopt_loop_substitute.h90"
52   !!----------------------------------------------------------------------
53   !! NEMO/LIM2 3.3 , UCL - NEMO Consortium (2010)
54   !! $Id$
55   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
56   !!----------------------------------------------------------------------
57CONTAINS
58
59   FUNCTION lim_rhg_alloc_2()
60      !!-------------------------------------------------------------------
61      !!               ***  FUNCTION lim_rhg_alloc_2  ***
62      !!-------------------------------------------------------------------
63      INTEGER :: lim_rhg_alloc_2
64      !!-------------------------------------------------------------------
65
66      ALLOCATE(zu0(jpi,0:jpj+1),      zv0(jpi,0:jpj+1),     &
67               zu_n(jpi,0:jpj+1),     zv_n(jpi,0:jpj+1),    &
68               zu_a(jpi,0:jpj+1),     zv_a(jpi,0:jpj+1),    &
69               zviszeta(jpi,0:jpj+1), zviseta(jpi,0:jpj+1), &
70               zzfrld(jpi,0:jpj+1),   zztms(jpi,0:jpj+1),   &
71               zi1(jpi,0:jpj+1),      zi2(jpi,0:jpj+1),     &
72               zmasst(jpi,0:jpj+1),   zpresh(jpi,0:jpj+1),  &
73               Stat=lim_rhg_alloc_2)
74
75      IF(lim_rhg_alloc_2 /= 0)THEN
76         CALL ctl_warn('lim_rhg_alloc_2 : failed to allocate arrays.')
77      END IF
78
79   END FUNCTION lim_rhg_alloc_2
80
81
82   SUBROUTINE lim_rhg_2( k_j1, k_jpj )
83      !!-------------------------------------------------------------------
84      !!                 ***  SUBROUTINR lim_rhg_2  ***
85      !!
86      !! ** purpose :   determines the velocity field of sea ice by using
87      !!  atmospheric (wind stress) and oceanic (water stress and surface
88      !!  tilt) forcings. Ice-ice interaction is described by a non-linear
89      !!  viscous-plastic law including shear strength and a bulk rheology.
90      !!
91      !! ** Action  : - compute u_ice, v_ice the sea-ice velocity defined
92      !!              at I-point
93      !!-------------------------------------------------------------------
94      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released
95      USE wrk_nemo, ONLY: zfrld => wrk_2d_1, zmass => wrk_2d_2, zcorl => wrk_2d_3
96      USE wrk_nemo, ONLY: za1ct => wrk_2d_4, za2ct => wrk_2d_5, zresr => wrk_2d_6
97      USE wrk_nemo, ONLY: zc1u  => wrk_2d_7, zc1v  => wrk_2d_8, zc2u => wrk_2d_9
98      USE wrk_nemo, ONLY: zc2v  => wrk_2d_10, zsang => wrk_2d_11
99      !!
100      INTEGER, INTENT(in) ::   k_j1    ! southern j-index for ice computation
101      INTEGER, INTENT(in) ::   k_jpj   ! northern j-index for ice computation
102      !!
103      INTEGER ::   ji, jj              ! dummy loop indices
104      INTEGER ::   iter, jter          ! temporary integers
105      CHARACTER (len=50) ::   charout
106      REAL(wp) ::   ze11  , ze12  , ze22  , ze21               ! local scalars
107      REAL(wp) ::   zt11  , zt12  , zt21  , zt22               !   -      -
108      REAL(wp) ::   zvis11, zvis21, zvis12, zvis22             !   -      -
109      REAL(wp) ::   zgphsx, ztagnx, zgsshx, zunw, zur, zusw    !   -      -
110      REAL(wp) ::   zgphsy, ztagny, zgsshy, zvnw, zvr          !   -      -
111      REAL(wp) ::   zresm,  za, zac, zmod
112      REAL(wp) ::   zmpzas, zstms, zindu, zusdtp, zmassdt, zcorlal
113      REAL(wp) ::   ztrace2, zdeter, zdelta, zmask, zdgp, zdgi, zdiag
114      REAL(wp) ::   za1, zb1, zc1, zd1
115      REAL(wp) ::   za2, zb2, zc2, zd2, zden
116      REAL(wp) ::   zs11_11, zs11_12, zs11_21, zs11_22
117      REAL(wp) ::   zs12_11, zs12_12, zs12_21, zs12_22
118      REAL(wp) ::   zs21_11, zs21_12, zs21_21, zs21_22
119      REAL(wp) ::   zs22_11, zs22_12, zs22_21, zs22_22
120      !!-------------------------------------------------------------------
121     
122      !  Store initial velocities
123      !  ----------------
124      zztms(:,0    ) = 0._wp        ;   zzfrld(:,0    ) = 0._wp
125      zztms(:,jpj+1) = 0._wp        ;   zzfrld(:,jpj+1) = 0._wp
126      zu0  (:,0    ) = 0._wp        ;   zv0   (:,0    ) = 0._wp
127      zu0  (:,jpj+1) = 0._wp        ;   zv0   (:,jpj+1) = 0._wp
128      zztms(:,1:jpj) = tms  (:,:)   ;   zzfrld(:,1:jpj) = frld (:,:)
129      zu0  (:,1:jpj) = u_ice(:,:)   ;   zv0   (:,1:jpj) = v_ice(:,:)
130      zu_a (:, :   ) = zu0  (:,:)   ;   zv_a  (:, :   ) = zv0  (:,:)
131      zu_n (:, :   ) = zu0  (:,:)   ;   zv_n  (:, :   ) = zv0  (:,:)
132
133!i
134      zi1   (:,:) = 0._wp
135      zi2   (:,:) = 0._wp
136      zpresh(:,:) = 0._wp
137      zmasst(:,:) = 0._wp
138!i
139!!gm violant
140      zfrld(:,:) =0._wp
141      zcorl(:,:) =0._wp
142      zmass(:,:) =0._wp
143      za1ct(:,:) =0._wp
144      za2ct(:,:) =0._wp
145!!gm end
146
147      zviszeta(:,:) = 0._wp
148      zviseta (:,:) = 0._wp
149
150!i    zviszeta(:,0    ) = 0._wp    ;    zviseta(:,0    ) = 0._wp
151!i    zviszeta(:,jpj  ) = 0._wp    ;    zviseta(:,jpj  ) = 0._wp
152!i    zviszeta(:,jpj+1) = 0._wp    ;    zviseta(:,jpj+1) = 0._wp
153
154
155      ! Ice mass, ice strength, and wind stress at the center            |
156      ! of the grid squares.                                             |
157      !-------------------------------------------------------------------
158
159!CDIR NOVERRCHK
160      DO jj = k_j1 , k_jpj-1
161!CDIR NOVERRCHK
162         DO ji = 1 , jpi
163            ! only the sinus changes its sign with the hemisphere
164            zsang(ji,jj)  = SIGN( 1._wp, fcor(ji,jj) ) * sangvg   ! only the sinus changes its sign with the hemisphere
165            !
166            zmasst(ji,jj) = tms(ji,jj) * ( rhosn * hsnm(ji,jj) + rhoic * hicm(ji,jj) )
167            zpresh(ji,jj) = tms(ji,jj) *  pstarh * hicm(ji,jj) * EXP( -c_rhg * frld(ji,jj) )
168!!gm  :: stress given at I-point (F-point for the ocean) only compute the ponderation with the ice fraction (1-frld)
169            zi1(ji,jj)    = tms(ji,jj) * ( 1._wp - frld(ji,jj) )
170            zi2(ji,jj)    = tms(ji,jj) * ( 1._wp - frld(ji,jj) )
171         END DO
172      END DO
173
174
175      !---------------------------------------------------------------------------
176      !  Wind stress, coriolis and mass terms at the corners of the grid squares |
177      !  Gradient of ice strenght.                                               |
178      !---------------------------------------------------------------------------
179         
180      DO jj = k_j1+1, k_jpj-1
181         DO ji = 2, jpi    ! NO vector opt.
182            zstms = zztms(ji,jj  ) * wght(ji,jj,2,2) + zztms(ji-1,jj  ) * wght(ji,jj,1,2)   &
183               &  + zztms(ji,jj-1) * wght(ji,jj,2,1) + zztms(ji-1,jj-1) * wght(ji,jj,1,1)
184            zusw  = 1._wp / MAX( zstms, epsd )
185
186            zt11 = zztms(ji  ,jj  ) * zzfrld(ji  ,jj  ) 
187            zt12 = zztms(ji-1,jj  ) * zzfrld(ji-1,jj  ) 
188            zt21 = zztms(ji  ,jj-1) * zzfrld(ji  ,jj-1) 
189            zt22 = zztms(ji-1,jj-1) * zzfrld(ji-1,jj-1)
190
191            ! Leads area.
192            zfrld(ji,jj) =  (  zt11 * wght(ji,jj,2,2) + zt12 * wght(ji,jj,1,2)   &
193               &             + zt21 * wght(ji,jj,2,1) + zt22 * wght(ji,jj,1,1) ) * zusw
194
195            ! Mass and coriolis coeff. at I-point
196            zmass(ji,jj) = ( zmasst(ji,jj  ) * wght(ji,jj,2,2) + zmasst(ji-1,jj  ) * wght(ji,jj,1,2)   &
197               &           + zmasst(ji,jj-1) * wght(ji,jj,2,1) + zmasst(ji-1,jj-1) * wght(ji,jj,1,1) ) * zusw
198            zcorl(ji,jj) = zmass(ji,jj) &
199               &           *( fcor(ji,jj  ) * wght(ji,jj,2,2) + fcor(ji-1,jj  )*wght(ji,jj,1,2)   &
200               &            + fcor(ji,jj-1) * wght(ji,jj,2,1) + fcor(ji-1,jj-1)*wght(ji,jj,1,1) ) * zusw
201
202            ! Wind stress.
203            ! always provide stress at I-point
204            ztagnx = ( zi1(ji,jj  ) * wght(ji,jj,2,2) + zi1(ji-1,jj  ) * wght(ji,jj,1,2)   &
205               &     + zi1(ji,jj-1) * wght(ji,jj,2,1) + zi1(ji-1,jj-1) * wght(ji,jj,1,1) ) * zusw * utau_ice(ji,jj)
206            ztagny = ( zi2(ji,jj  ) * wght(ji,jj,2,2) + zi2(ji-1,jj  ) * wght(ji,jj,1,2)   &
207               &     + zi2(ji,jj-1) * wght(ji,jj,2,1) + zi2(ji-1,jj-1) * wght(ji,jj,1,1) ) * zusw * vtau_ice(ji,jj)
208
209            ! Gradient of ice strength
210            zgphsx =   ( alambd(ji,jj,2,2,2,1) - alambd(ji,jj,2,1,2,1) ) * zpresh(ji  ,jj-1)   &
211               &     + ( alambd(ji,jj,2,2,2,2) - alambd(ji,jj,2,1,2,2) ) * zpresh(ji  ,jj  )   &
212               &     - ( alambd(ji,jj,2,2,1,1) + alambd(ji,jj,2,1,1,1) ) * zpresh(ji-1,jj-1)   &
213               &     - ( alambd(ji,jj,2,2,1,2) + alambd(ji,jj,2,1,1,2) ) * zpresh(ji-1,jj  )
214
215            zgphsy = - ( alambd(ji,jj,1,1,2,1) + alambd(ji,jj,1,2,2,1) ) * zpresh(ji  ,jj-1)   &
216               &     - ( alambd(ji,jj,1,1,1,1) + alambd(ji,jj,1,2,1,1) ) * zpresh(ji-1,jj-1)   &
217               &     + ( alambd(ji,jj,1,1,2,2) - alambd(ji,jj,1,2,2,2) ) * zpresh(ji  ,jj  )   &
218               &     + ( alambd(ji,jj,1,1,1,2) - alambd(ji,jj,1,2,1,2) ) * zpresh(ji-1,jj  )
219
220            ! Gradient of the sea surface height
221            zgsshx =  (   (ssh_m(ji  ,jj  ) - ssh_m(ji-1,jj  ))/e1u(ji-1,jj  )   &
222               &       +  (ssh_m(ji  ,jj-1) - ssh_m(ji-1,jj-1))/e1u(ji-1,jj-1)   ) * 0.5_wp
223            zgsshy =  (   (ssh_m(ji  ,jj  ) - ssh_m(ji  ,jj-1))/e2v(ji  ,jj-1)   &
224               &       +  (ssh_m(ji-1,jj  ) - ssh_m(ji-1,jj-1))/e2v(ji-1,jj-1)   ) * 0.5_wp
225
226            ! Computation of the velocity field taking into account the ice-ice interaction.                                 
227            ! Terms that are independent of the ice velocity field.
228            za1ct(ji,jj) = ztagnx - zmass(ji,jj) * grav * zgsshx - zgphsx
229            za2ct(ji,jj) = ztagny - zmass(ji,jj) * grav * zgsshy - zgphsy
230         END DO
231      END DO
232
233
234      ! SOLUTION OF THE MOMENTUM EQUATION.
235      !------------------------------------------
236      !                                                   ! ==================== !
237      DO iter = 1 , 2 * nbiter                            !    loop over iter    !
238         !                                                ! ==================== !       
239         zindu = MOD( iter , 2 )
240         zusdtp = ( zindu * 2._wp + ( 1._wp - zindu ) * 1._wp )  * REAL( nbiter ) / rdt_ice
241
242         ! Computation of free drift field for free slip boundary conditions.
243
244!CDIR NOVERRCHK
245         DO jj = k_j1, k_jpj-1
246!CDIR NOVERRCHK
247            DO ji = 1, fs_jpim1
248               !- Rate of strain tensor.
249               zt11 =   akappa(ji,jj,1,1) * ( zu_a(ji+1,jj) + zu_a(ji+1,jj+1) - zu_a(ji,jj  ) - zu_a(ji  ,jj+1) )  &
250                  &   + akappa(ji,jj,1,2) * ( zv_a(ji+1,jj) + zv_a(ji+1,jj+1) + zv_a(ji,jj  ) + zv_a(ji  ,jj+1) )
251               zt12 = - akappa(ji,jj,2,2) * ( zu_a(ji  ,jj) + zu_a(ji+1,jj  ) - zu_a(ji,jj+1) - zu_a(ji+1,jj+1) )  &
252                  &   - akappa(ji,jj,2,1) * ( zv_a(ji  ,jj) + zv_a(ji+1,jj  ) + zv_a(ji,jj+1) + zv_a(ji+1,jj+1) )
253               zt22 = - akappa(ji,jj,2,2) * ( zv_a(ji  ,jj) + zv_a(ji+1,jj  ) - zv_a(ji,jj+1) - zv_a(ji+1,jj+1) )  &
254                  &   + akappa(ji,jj,2,1) * ( zu_a(ji  ,jj) + zu_a(ji+1,jj  ) + zu_a(ji,jj+1) + zu_a(ji+1,jj+1) )
255               zt21 =   akappa(ji,jj,1,1) * ( zv_a(ji+1,jj) + zv_a(ji+1,jj+1) - zv_a(ji,jj  ) - zv_a(ji  ,jj+1) )  &
256                  &   - akappa(ji,jj,1,2) * ( zu_a(ji+1,jj) + zu_a(ji+1,jj+1) + zu_a(ji,jj  ) + zu_a(ji  ,jj+1) )
257
258               !- Rate of strain tensor.
259               zdgp = zt11 + zt22
260               zdgi = zt12 + zt21
261               ztrace2 = zdgp * zdgp 
262               zdeter  = zt11 * zt22 - 0.25_wp * zdgi * zdgi
263
264               !  Creep limit depends on the size of the grid.
265               zdelta = MAX( SQRT( ztrace2 + ( ztrace2 - 4._wp * zdeter ) * usecc2 ),  creepl)
266
267               !-  Computation of viscosities.
268               zviszeta(ji,jj) = MAX( zpresh(ji,jj) / zdelta, etamn )
269               zviseta (ji,jj) = zviszeta(ji,jj) * usecc2
270            END DO
271         END DO
272
273         !-  Determination of zc1u, zc2u, zc1v and zc2v.
274         DO jj = k_j1+1, k_jpj-1
275            DO ji = 2, fs_jpim1   ! NO vector opt.
276               !* zc1u , zc2v
277               zvis11 = 2._wp * zviseta (ji-1,jj-1) + dm
278               zvis12 =         zviseta (ji-1,jj-1) + dm
279               zvis21 =         zviseta (ji-1,jj-1)
280               zvis22 =         zviszeta(ji-1,jj-1) - zviseta(ji-1,jj-1)
281               zdiag  = zvis22 * ( akappa(ji-1,jj-1,1,1) + akappa(ji-1,jj-1,2,1) )
282               zs11_11 =  zvis11 * akappa(ji-1,jj-1,1,1) + zdiag
283               zs12_11 =  zvis12 * akappa(ji-1,jj-1,2,2) - zvis21 * akappa(ji-1,jj-1,1,2)
284               zs21_11 = -zvis12 * akappa(ji-1,jj-1,1,2) + zvis21 * akappa(ji-1,jj-1,2,2)
285               zs22_11 =  zvis11 * akappa(ji-1,jj-1,2,1) + zdiag
286
287               zvis11 = 2._wp * zviseta (ji,jj-1) + dm
288               zvis22 =         zviszeta(ji,jj-1) - zviseta(ji,jj-1)
289               zvis12 =         zviseta (ji,jj-1) + dm
290               zvis21 =         zviseta (ji,jj-1)
291               zdiag = zvis22 * ( -akappa(ji,jj-1,1,1) + akappa(ji,jj-1,2,1) )
292               zs11_21 = -zvis11 * akappa(ji,jj-1,1,1) + zdiag
293               zs12_21 =  zvis12 * akappa(ji,jj-1,2,2) - zvis21 * akappa(ji,jj-1,1,2)
294               zs22_21 =  zvis11 * akappa(ji,jj-1,2,1) + zdiag
295               zs21_21 = -zvis12 * akappa(ji,jj-1,1,2) + zvis21 * akappa(ji,jj-1,2,2)
296
297               zvis11 = 2._wp * zviseta (ji-1,jj) + dm
298               zvis22 =         zviszeta(ji-1,jj) - zviseta(ji-1,jj)
299               zvis12 =         zviseta (ji-1,jj) + dm
300               zvis21 =         zviseta (ji-1,jj)
301               zdiag  = zvis22 * ( akappa(ji-1,jj,1,1) + akappa(ji-1,jj,2,1) )
302               zs11_12 =  zvis11 * akappa(ji-1,jj,1,1) + zdiag
303               zs12_12 = -zvis12 * akappa(ji-1,jj,2,2) - zvis21 * akappa(ji-1,jj,1,2)
304               zs22_12 =  zvis11 * akappa(ji-1,jj,2,1) + zdiag
305               zs21_12 = -zvis12 * akappa(ji-1,jj,1,2) - zvis21 * akappa(ji-1,jj,2,2)
306
307               zvis11 = 2._wp * zviseta (ji,jj) + dm
308               zvis22 =         zviszeta(ji,jj) - zviseta(ji,jj)
309               zvis12 =         zviseta (ji,jj) + dm
310               zvis21 =         zviseta (ji,jj)
311               zdiag = zvis22 * ( -akappa(ji,jj,1,1) + akappa(ji,jj,2,1) )
312               zs11_22 = -zvis11 * akappa(ji,jj,1,1) + zdiag
313               zs12_22 = -zvis12 * akappa(ji,jj,2,2) - zvis21 * akappa(ji,jj,1,2)
314               zs22_22 =  zvis11 * akappa(ji,jj,2,1) + zdiag
315               zs21_22 = -zvis12 * akappa(ji,jj,1,2) - zvis21 * akappa(ji,jj,2,2)
316
317               zc1u(ji,jj) = + alambd(ji,jj,2,2,2,1) * zs11_21 + alambd(ji,jj,2,2,2,2) * zs11_22   &
318                  &          - alambd(ji,jj,2,2,1,1) * zs11_11 - alambd(ji,jj,2,2,1,2) * zs11_12   &
319                  &          - alambd(ji,jj,1,1,2,1) * zs12_21 - alambd(ji,jj,1,1,1,1) * zs12_11   &
320                  &          + alambd(ji,jj,1,1,2,2) * zs12_22 + alambd(ji,jj,1,1,1,2) * zs12_12   &
321                  &          + alambd(ji,jj,1,2,1,1) * zs21_11 + alambd(ji,jj,1,2,2,1) * zs21_21   &
322                  &          + alambd(ji,jj,1,2,1,2) * zs21_12 + alambd(ji,jj,1,2,2,2) * zs21_22   &
323                  &          - alambd(ji,jj,2,1,1,1) * zs22_11 - alambd(ji,jj,2,1,2,1) * zs22_21   &
324                  &          - alambd(ji,jj,2,1,1,2) * zs22_12 - alambd(ji,jj,2,1,2,2) * zs22_22
325
326               zc2u(ji,jj) = + alambd(ji,jj,2,2,2,1) * zs21_21 + alambd(ji,jj,2,2,2,2) * zs21_22   &
327                  &          - alambd(ji,jj,2,2,1,1) * zs21_11 - alambd(ji,jj,2,2,1,2) * zs21_12   &
328                  &          - alambd(ji,jj,1,1,2,1) * zs22_21 - alambd(ji,jj,1,1,1,1) * zs22_11   &
329                  &          + alambd(ji,jj,1,1,2,2) * zs22_22 + alambd(ji,jj,1,1,1,2) * zs22_12   &
330                  &          - alambd(ji,jj,1,2,1,1) * zs11_11 - alambd(ji,jj,1,2,2,1) * zs11_21   &
331                  &          - alambd(ji,jj,1,2,1,2) * zs11_12 - alambd(ji,jj,1,2,2,2) * zs11_22   &
332                  &          + alambd(ji,jj,2,1,1,1) * zs12_11 + alambd(ji,jj,2,1,2,1) * zs12_21   &
333                  &          + alambd(ji,jj,2,1,1,2) * zs12_12 + alambd(ji,jj,2,1,2,2) * zs12_22
334
335               !* zc1v , zc2v.
336               zvis11 = 2._wp * zviseta (ji-1,jj-1) + dm
337               zvis22 =         zviszeta(ji-1,jj-1) - zviseta(ji-1,jj-1)
338               zvis12 =         zviseta (ji-1,jj-1) + dm
339               zvis21 =         zviseta (ji-1,jj-1)
340               zdiag = zvis22 * ( akappa(ji-1,jj-1,1,2) + akappa(ji-1,jj-1,2,2) )
341               zs11_11 =  zvis11 * akappa(ji-1,jj-1,1,2) + zdiag
342               zs12_11 = -zvis12 * akappa(ji-1,jj-1,2,1) + zvis21 * akappa(ji-1,jj-1,1,1)
343               zs22_11 =  zvis11 * akappa(ji-1,jj-1,2,2) + zdiag
344               zs21_11 =  zvis12 * akappa(ji-1,jj-1,1,1) - zvis21 * akappa(ji-1,jj-1,2,1)
345 
346               zvis11 = 2._wp * zviseta (ji,jj-1) + dm
347               zvis22 =         zviszeta(ji,jj-1) - zviseta(ji,jj-1)
348               zvis12 =         zviseta (ji,jj-1) + dm
349               zvis21 =         zviseta (ji,jj-1)
350               zdiag = zvis22 * ( akappa(ji,jj-1,1,2) + akappa(ji,jj-1,2,2) )
351               zs11_21 =  zvis11 * akappa(ji,jj-1,1,2) + zdiag
352               zs12_21 = -zvis12 * akappa(ji,jj-1,2,1) - zvis21 * akappa(ji,jj-1,1,1)
353               zs22_21 =  zvis11 * akappa(ji,jj-1,2,2) + zdiag
354               zs21_21 = -zvis12 * akappa(ji,jj-1,1,1) - zvis21 * akappa(ji,jj-1,2,1)
355
356               zvis11 = 2._wp * zviseta (ji-1,jj) + dm
357               zvis22 =         zviszeta(ji-1,jj) - zviseta(ji-1,jj)
358               zvis12 =         zviseta (ji-1,jj) + dm
359               zvis21 =         zviseta (ji-1,jj)
360               zdiag = zvis22 * ( akappa(ji-1,jj,1,2) - akappa(ji-1,jj,2,2) )
361               zs11_12 =  zvis11 * akappa(ji-1,jj,1,2) + zdiag
362               zs12_12 = -zvis12 * akappa(ji-1,jj,2,1) + zvis21 * akappa(ji-1,jj,1,1)
363               zs22_12 = -zvis11 * akappa(ji-1,jj,2,2) + zdiag
364               zs21_12 =  zvis12 * akappa(ji-1,jj,1,1) - zvis21 * akappa(ji-1,jj,2,1)
365
366               zvis11 = 2._wp * zviseta (ji,jj) + dm
367               zvis22 =         zviszeta(ji,jj) - zviseta(ji,jj)
368               zvis12 =         zviseta (ji,jj) + dm
369               zvis21 =         zviseta (ji,jj)
370               zdiag = zvis22 * ( akappa(ji,jj,1,2) - akappa(ji,jj,2,2) )
371               zs11_22 =  zvis11 * akappa(ji,jj,1,2) + zdiag
372               zs12_22 = -zvis12 * akappa(ji,jj,2,1) - zvis21 * akappa(ji,jj,1,1)
373               zs22_22 = -zvis11 * akappa(ji,jj,2,2) + zdiag
374               zs21_22 = -zvis12 * akappa(ji,jj,1,1) - zvis21 * akappa(ji,jj,2,1)
375
376               zc1v(ji,jj) = + alambd(ji,jj,2,2,2,1) * zs11_21 + alambd(ji,jj,2,2,2,2) * zs11_22   &
377                  &          - alambd(ji,jj,2,2,1,1) * zs11_11 - alambd(ji,jj,2,2,1,2) * zs11_12   &
378                  &          - alambd(ji,jj,1,1,2,1) * zs12_21 - alambd(ji,jj,1,1,1,1) * zs12_11   &
379                  &          + alambd(ji,jj,1,1,2,2) * zs12_22 + alambd(ji,jj,1,1,1,2) * zs12_12   &
380                  &          + alambd(ji,jj,1,2,1,1) * zs21_11 + alambd(ji,jj,1,2,2,1) * zs21_21   &
381                  &          + alambd(ji,jj,1,2,1,2) * zs21_12 + alambd(ji,jj,1,2,2,2) * zs21_22   &
382                  &          - alambd(ji,jj,2,1,1,1) * zs22_11 - alambd(ji,jj,2,1,2,1) * zs22_21   &
383                  &          - alambd(ji,jj,2,1,1,2) * zs22_12 - alambd(ji,jj,2,1,2,2) * zs22_22
384
385               zc2v(ji,jj) = + alambd(ji,jj,2,2,2,1) * zs21_21 + alambd(ji,jj,2,2,2,2) * zs21_22   &
386                  &          - alambd(ji,jj,2,2,1,1) * zs21_11 - alambd(ji,jj,2,2,1,2) * zs21_12   &
387                  &          - alambd(ji,jj,1,1,2,1) * zs22_21 - alambd(ji,jj,1,1,1,1) * zs22_11   &
388                  &          + alambd(ji,jj,1,1,2,2) * zs22_22 + alambd(ji,jj,1,1,1,2) * zs22_12   &
389                  &          - alambd(ji,jj,1,2,1,1) * zs11_11 - alambd(ji,jj,1,2,2,1) * zs11_21   &
390                  &          - alambd(ji,jj,1,2,1,2) * zs11_12 - alambd(ji,jj,1,2,2,2) * zs11_22   &
391                  &          + alambd(ji,jj,2,1,1,1) * zs12_11 + alambd(ji,jj,2,1,2,1) * zs12_21   &
392                  &          + alambd(ji,jj,2,1,1,2) * zs12_12 + alambd(ji,jj,2,1,2,2) * zs12_22
393            END DO
394         END DO
395
396         ! GAUSS-SEIDEL method
397         !                                                      ! ================ !
398iflag:   DO jter = 1 , nbitdr                                   !    Relaxation    !
399            !                                                   ! ================ !
400!CDIR NOVERRCHK
401            DO jj = k_j1+1, k_jpj-1
402!CDIR NOVERRCHK
403               DO ji = 2, fs_jpim1   ! NO vector opt.
404                  !
405                  ze11 =   akappa(ji,jj-1,1,1) * zu_a(ji+1,jj) + akappa(ji,jj-1,1,2) * zv_a(ji+1,jj)
406                  ze12 = + akappa(ji,jj-1,2,2) * zu_a(ji+1,jj) - akappa(ji,jj-1,2,1) * zv_a(ji+1,jj)
407                  ze22 = + akappa(ji,jj-1,2,2) * zv_a(ji+1,jj) + akappa(ji,jj-1,2,1) * zu_a(ji+1,jj)
408                  ze21 =   akappa(ji,jj-1,1,1) * zv_a(ji+1,jj) - akappa(ji,jj-1,1,2) * zu_a(ji+1,jj)
409                  zvis11 = 2._wp * zviseta (ji,jj-1) + dm
410                  zvis22 =         zviszeta(ji,jj-1) - zviseta(ji,jj-1)
411                  zvis12 =         zviseta (ji,jj-1) + dm
412                  zvis21 =         zviseta (ji,jj-1)
413                  zdiag = zvis22 * ( ze11 + ze22 )
414                  zs11_21 =  zvis11 * ze11 + zdiag
415                  zs12_21 =  zvis12 * ze12 + zvis21 * ze21
416                  zs22_21 =  zvis11 * ze22 + zdiag
417                  zs21_21 =  zvis12 * ze21 + zvis21 * ze12
418
419                  ze11 =   akappa(ji-1,jj,1,1) * ( zu_a(ji  ,jj+1) - zu_a(ji-1,jj+1) )   &
420                     &   + akappa(ji-1,jj,1,2) * ( zv_a(ji  ,jj+1) + zv_a(ji-1,jj+1) )
421                  ze12 = + akappa(ji-1,jj,2,2) * ( zu_a(ji-1,jj+1) + zu_a(ji  ,jj+1) )   &
422                     &   - akappa(ji-1,jj,2,1) * ( zv_a(ji-1,jj+1) + zv_a(ji  ,jj+1) )
423                  ze22 = + akappa(ji-1,jj,2,2) * ( zv_a(ji-1,jj+1) + zv_a(ji  ,jj+1) )   &
424                     &   + akappa(ji-1,jj,2,1) * ( zu_a(ji-1,jj+1) + zu_a(ji  ,jj+1) )
425                  ze21 =   akappa(ji-1,jj,1,1) * ( zv_a(ji  ,jj+1) - zv_a(ji-1,jj+1) )   &
426                     &   - akappa(ji-1,jj,1,2) * ( zu_a(ji  ,jj+1) + zu_a(ji-1,jj+1) )
427                  zvis11 = 2._wp * zviseta (ji-1,jj) + dm
428                  zvis22 =         zviszeta(ji-1,jj) - zviseta(ji-1,jj)
429                  zvis12 =         zviseta (ji-1,jj) + dm
430                  zvis21 =         zviseta (ji-1,jj)
431                  zdiag = zvis22 * ( ze11 + ze22 )
432                  zs11_12 =  zvis11 * ze11 + zdiag
433                  zs12_12 =  zvis12 * ze12 + zvis21 * ze21
434                  zs22_12 =  zvis11 * ze22 + zdiag
435                  zs21_12 =  zvis12 * ze21 + zvis21 * ze12
436
437                  ze11 =   akappa(ji,jj,1,1) * ( zu_a(ji+1,jj) + zu_a(ji+1,jj+1) - zu_a(ji  ,jj+1) )   &
438                     &   + akappa(ji,jj,1,2) * ( zv_a(ji+1,jj) + zv_a(ji+1,jj+1) + zv_a(ji  ,jj+1) )
439                  ze12 = - akappa(ji,jj,2,2) * ( zu_a(ji+1,jj) - zu_a(ji  ,jj+1) - zu_a(ji+1,jj+1) )   &
440                     &   - akappa(ji,jj,2,1) * ( zv_a(ji+1,jj) + zv_a(ji  ,jj+1) + zv_a(ji+1,jj+1) )
441                  ze22 = - akappa(ji,jj,2,2) * ( zv_a(ji+1,jj) - zv_a(ji  ,jj+1) - zv_a(ji+1,jj+1) )   &
442                     &   + akappa(ji,jj,2,1) * ( zu_a(ji+1,jj) + zu_a(ji  ,jj+1) + zu_a(ji+1,jj+1) )
443                  ze21 =   akappa(ji,jj,1,1) * ( zv_a(ji+1,jj) + zv_a(ji+1,jj+1) - zv_a(ji  ,jj+1) )   &
444                     &   - akappa(ji,jj,1,2) * ( zu_a(ji+1,jj) + zu_a(ji+1,jj+1) + zu_a(ji  ,jj+1) )
445                  zvis11 = 2._wp * zviseta (ji,jj) + dm
446                  zvis22 =         zviszeta(ji,jj) - zviseta(ji,jj)
447                  zvis12 =         zviseta (ji,jj) + dm
448                  zvis21 =         zviseta (ji,jj)
449                  zdiag = zvis22 * ( ze11 + ze22 )
450                  zs11_22 =  zvis11 * ze11 + zdiag
451                  zs12_22 =  zvis12 * ze12 + zvis21 * ze21
452                  zs22_22 =  zvis11 * ze22 + zdiag
453                  zs21_22 =  zvis12 * ze21 + zvis21 * ze12
454
455            ! 2nd part
456                  ze11 =   akappa(ji-1,jj-1,1,1) * ( zu_a(ji  ,jj-1) - zu_a(ji-1,jj-1) - zu_a(ji-1,jj) )   &
457                     &   + akappa(ji-1,jj-1,1,2) * ( zv_a(ji  ,jj-1) + zv_a(ji-1,jj-1) + zv_a(ji-1,jj) )
458                  ze12 = - akappa(ji-1,jj-1,2,2) * ( zu_a(ji-1,jj-1) + zu_a(ji  ,jj-1) - zu_a(ji-1,jj) )   &
459                     &   - akappa(ji-1,jj-1,2,1) * ( zv_a(ji-1,jj-1) + zv_a(ji  ,jj-1) + zv_a(ji-1,jj) )
460                  ze22 = - akappa(ji-1,jj-1,2,2) * ( zv_a(ji-1,jj-1) + zv_a(ji  ,jj-1) - zv_a(ji-1,jj) )   &
461                     &   + akappa(ji-1,jj-1,2,1) * ( zu_a(ji-1,jj-1) + zu_a(ji  ,jj-1) + zu_a(ji-1,jj) )
462                  ze21 =   akappa(ji-1,jj-1,1,1) * ( zv_a(ji  ,jj-1) - zv_a(ji-1,jj-1) - zv_a(ji-1,jj) )   &
463                     &  -  akappa(ji-1,jj-1,1,2) * ( zu_a(ji  ,jj-1) + zu_a(ji-1,jj-1) + zu_a(ji-1,jj) )
464                  zvis11 = 2._wp * zviseta (ji-1,jj-1) + dm
465                  zvis22 =         zviszeta(ji-1,jj-1) - zviseta(ji-1,jj-1)
466                  zvis12 =         zviseta (ji-1,jj-1) + dm
467                  zvis21 =         zviseta (ji-1,jj-1)
468                  zdiag = zvis22 * ( ze11 + ze22 )
469                  zs11_11 =  zvis11 * ze11 + zdiag
470                  zs12_11 =  zvis12 * ze12 + zvis21 * ze21
471                  zs22_11 =  zvis11 * ze22 + zdiag
472                  zs21_11 =  zvis12 * ze21 + zvis21 * ze12
473
474                  ze11 =   akappa(ji,jj-1,1,1) * ( zu_a(ji+1,jj-1) - zu_a(ji  ,jj-1) )   &
475                     &   + akappa(ji,jj-1,1,2) * ( zv_a(ji+1,jj-1) + zv_a(ji  ,jj-1) )
476                  ze12 = - akappa(ji,jj-1,2,2) * ( zu_a(ji  ,jj-1) + zu_a(ji+1,jj-1) )   &
477                     &   - akappa(ji,jj-1,2,1) * ( zv_a(ji  ,jj-1) + zv_a(ji+1,jj-1) )
478                  ze22 = - akappa(ji,jj-1,2,2) * ( zv_a(ji  ,jj-1) + zv_a(ji+1,jj-1) )   &
479                     &   + akappa(ji,jj-1,2,1) * ( zu_a(ji  ,jj-1) + zu_a(ji+1,jj-1) )
480                  ze21 =   akappa(ji,jj-1,1,1) * ( zv_a(ji+1,jj-1) - zv_a(ji  ,jj-1) )   &
481                     &   - akappa(ji,jj-1,1,2) * ( zu_a(ji+1,jj-1) + zu_a(ji  ,jj-1) )
482                  zvis11 = 2._wp * zviseta (ji,jj-1) + dm
483                  zvis22 =         zviszeta(ji,jj-1) - zviseta(ji,jj-1)
484                  zvis12 =         zviseta (ji,jj-1) + dm
485                  zvis21 =         zviseta (ji,jj-1)
486                  zdiag = zvis22 * ( ze11 + ze22 )
487                  zs11_21 =  zs11_21 + zvis11 * ze11 + zdiag
488                  zs12_21 =  zs12_21 + zvis12 * ze12 + zvis21 * ze21
489                  zs22_21 =  zs22_21 + zvis11 * ze22 + zdiag
490                  zs21_21 =  zs21_21 + zvis12 * ze21 + zvis21 * ze12
491
492                  ze11 = - akappa(ji-1,jj,1,1) * zu_a(ji-1,jj) + akappa(ji-1,jj,1,2) * zv_a(ji-1,jj)
493                  ze12 = - akappa(ji-1,jj,2,2) * zu_a(ji-1,jj) - akappa(ji-1,jj,2,1) * zv_a(ji-1,jj)
494                  ze22 = - akappa(ji-1,jj,2,2) * zv_a(ji-1,jj) + akappa(ji-1,jj,2,1) * zu_a(ji-1,jj)
495                  ze21 = - akappa(ji-1,jj,1,1) * zv_a(ji-1,jj) - akappa(ji-1,jj,1,2) * zu_a(ji-1,jj)
496                  zvis11 = 2._wp * zviseta (ji-1,jj) + dm
497                  zvis22 =         zviszeta(ji-1,jj) - zviseta(ji-1,jj)
498                  zvis12 =         zviseta (ji-1,jj) + dm
499                  zvis21 =         zviseta (ji-1,jj)
500                  zdiag = zvis22 * ( ze11 + ze22 )
501                  zs11_12 =  zs11_12 + zvis11 * ze11 + zdiag
502                  zs12_12 =  zs12_12 + zvis12 * ze12 + zvis21 * ze21
503                  zs22_12 =  zs22_12 + zvis11 * ze22 + zdiag
504                  zs21_12 =  zs21_12 + zvis12 * ze21 + zvis21 * ze12
505
506                  zd1 = + alambd(ji,jj,2,2,2,1) * zs11_21 + alambd(ji,jj,2,2,2,2) * zs11_22  &
507                     &  - alambd(ji,jj,2,2,1,1) * zs11_11 - alambd(ji,jj,2,2,1,2) * zs11_12  &
508                     &  - alambd(ji,jj,1,1,2,1) * zs12_21 - alambd(ji,jj,1,1,1,1) * zs12_11  &
509                     &  + alambd(ji,jj,1,1,2,2) * zs12_22 + alambd(ji,jj,1,1,1,2) * zs12_12  &
510                     &  + alambd(ji,jj,1,2,1,1) * zs21_11 + alambd(ji,jj,1,2,2,1) * zs21_21  &
511                     &  + alambd(ji,jj,1,2,1,2) * zs21_12 + alambd(ji,jj,1,2,2,2) * zs21_22  &
512                     &  - alambd(ji,jj,2,1,1,1) * zs22_11 - alambd(ji,jj,2,1,2,1) * zs22_21  &
513                     &  - alambd(ji,jj,2,1,1,2) * zs22_12 - alambd(ji,jj,2,1,2,2) * zs22_22
514
515                  zd2 = + alambd(ji,jj,2,2,2,1) * zs21_21 + alambd(ji,jj,2,2,2,2) * zs21_22  &
516                     &  - alambd(ji,jj,2,2,1,1) * zs21_11 - alambd(ji,jj,2,2,1,2) * zs21_12  &
517                     &  - alambd(ji,jj,1,1,2,1) * zs22_21 - alambd(ji,jj,1,1,1,1) * zs22_11  &
518                     &  + alambd(ji,jj,1,1,2,2) * zs22_22 + alambd(ji,jj,1,1,1,2) * zs22_12  &
519                     &  - alambd(ji,jj,1,2,1,1) * zs11_11 - alambd(ji,jj,1,2,2,1) * zs11_21  &
520                     &  - alambd(ji,jj,1,2,1,2) * zs11_12 - alambd(ji,jj,1,2,2,2) * zs11_22  &
521                     &  + alambd(ji,jj,2,1,1,1) * zs12_11 + alambd(ji,jj,2,1,2,1) * zs12_21  &
522                     &  + alambd(ji,jj,2,1,1,2) * zs12_12 + alambd(ji,jj,2,1,2,2) * zs12_22
523
524                  zur     = zu_a(ji,jj) - u_oce(ji,jj)
525                  zvr     = zv_a(ji,jj) - v_oce(ji,jj)
526!!!!
527                  zmod    = SQRT( zur*zur + zvr*zvr ) * ( 1._wp - zfrld(ji,jj) )
528                  za      = rhoco * zmod
529!!!!
530!!gm chg resul    za      = rhoco * SQRT( zur*zur + zvr*zvr ) * ( 1._wp - zfrld(ji,jj) )
531                  zac     = za * cangvg
532                  zmpzas  = alpha * zcorl(ji,jj) + za * zsang(ji,jj)
533                  zmassdt = zusdtp * zmass(ji,jj)
534                  zcorlal = ( 1._wp - alpha ) * zcorl(ji,jj)
535
536                  za1 =  zmassdt * zu0(ji,jj) + zcorlal * zv0(ji,jj) + za1ct(ji,jj)   &
537                     &        + za * ( cangvg * u_oce(ji,jj) - zsang(ji,jj) * v_oce(ji,jj) )
538                  za2 =  zmassdt * zv0(ji,jj) - zcorlal * zu0(ji,jj) + za2ct(ji,jj)   &
539                     &        + za * ( cangvg * v_oce(ji,jj) + zsang(ji,jj) * u_oce(ji,jj) )
540                  zb1    = zmassdt + zac - zc1u(ji,jj)
541                  zb2    = zmpzas        - zc2u(ji,jj)
542                  zc1    = zmpzas        + zc1v(ji,jj)
543                  zc2    = zmassdt + zac - zc2v(ji,jj)
544                  zdeter = zc1 * zb2 + zc2 * zb1
545                  zden   = SIGN( rone, zdeter) / MAX( epsd , ABS( zdeter ) )
546                  zunw   = (  ( za1 + zd1 ) * zc2 + ( za2 + zd2 ) * zc1 ) * zden
547                  zvnw   = (  ( za2 + zd2 ) * zb1 - ( za1 + zd1 ) * zb2 ) * zden
548                  zmask  = ( 1._wp - MAX( rzero, SIGN( rone , 1._wp - zmass(ji,jj) ) ) ) * tmu(ji,jj)
549
550                  zu_n(ji,jj) = ( zu_a(ji,jj) + om * ( zunw - zu_a(ji,jj) ) * tmu(ji,jj) ) * zmask
551                  zv_n(ji,jj) = ( zv_a(ji,jj) + om * ( zvnw - zv_a(ji,jj) ) * tmu(ji,jj) ) * zmask
552               END DO
553            END DO
554
555            CALL lbc_lnk( zu_n(:,1:jpj), 'I', -1. )
556            CALL lbc_lnk( zv_n(:,1:jpj), 'I', -1. )
557
558            ! Test of Convergence
559            DO jj = k_j1+1 , k_jpj-1
560               zresr(:,jj) = MAX( ABS( zu_a(:,jj) - zu_n(:,jj) ) , ABS( zv_a(:,jj) - zv_n(:,jj) ) )
561            END DO
562            zresm = MAXVAL( zresr(1:jpi,k_j1+1:k_jpj-1) )
563!!!! this should be faster on scalar processor
564!           zresm = MAXVAL(  MAX( ABS( zu_a(1:jpi,k_j1+1:k_jpj-1) - zu_n(1:jpi,k_j1+1:k_jpj-1) ),   &
565!              &                  ABS( zv_a(1:jpi,k_j1+1:k_jpj-1) - zv_n(1:jpi,k_j1+1:k_jpj-1) ) )  )
566!!!!
567            IF( lk_mpp )   CALL mpp_max( zresm )   ! max over the global domain
568
569            DO jj = k_j1, k_jpj
570               zu_a(:,jj) = zu_n(:,jj)
571               zv_a(:,jj) = zv_n(:,jj)
572            END DO
573
574            IF( zresm <= resl )   EXIT   iflag
575
576            !                                                   ! ================ !
577         END DO    iflag                                        !  end Relaxation  !
578         !                                                      ! ================ !
579
580         IF( zindu == 0 ) THEN      ! even iteration
581            DO jj = k_j1 , k_jpj-1
582               zu0(:,jj) = zu_a(:,jj)
583               zv0(:,jj) = zv_a(:,jj)
584            END DO
585         ENDIF
586         !                                                ! ==================== !
587      END DO                                              !  end loop over iter  !
588      !                                                   ! ==================== !
589
590      u_ice(:,:) = zu_a(:,1:jpj)
591      v_ice(:,:) = zv_a(:,1:jpj)
592
593      IF(ln_ctl) THEN
594         WRITE(charout,FMT="('lim_rhg  : res =',D23.16, ' iter =',I4)") zresm, jter
595         CALL prt_ctl_info(charout)
596         CALL prt_ctl(tab2d_1=u_ice, clinfo1=' lim_rhg  : u_ice :', tab2d_2=v_ice, clinfo2=' v_ice :')
597      ENDIF
598
599   END SUBROUTINE lim_rhg_2
600
601#else
602   !!----------------------------------------------------------------------
603   !!   Default option        Dummy module      NO VP & LIM-2 sea-ice model
604   !!----------------------------------------------------------------------
605CONTAINS
606   SUBROUTINE lim_rhg_2( k1 , k2 )       ! Dummy routine
607      WRITE(*,*) 'lim_rhg_2: You should not have seen this print! error?', k1, k2
608   END SUBROUTINE lim_rhg_2
609#endif
610
611   !!==============================================================================
612END MODULE limrhg_2
Note: See TracBrowser for help on using the repository browser.