Changeset 868 for trunk/NEMO/LIM_SRC_3/limdyn.F90

Timestamp:

2008-03-14T19:53:00+01:00 (16 years ago)

Author:

rblod

Message:

First optimisation of LIM3, limrhg optimisation induces computation change

File:

• trunk/NEMO/LIM_SRC_3/limdyn.F90 (modified) (4 diffs)

trunk/NEMO/LIM_SRC_3/limdyn.F90

@@ -33 +33 @@
    PUBLIC lim_dyn  ! routine called by ice_step
 
+   !! * Substitutions
+#  include "vectopt_loop_substitute.h90"
+
    !! * Module variables
    REAL(wp)  ::  rone    = 1.e0   ! constant value
@@ -172 +175 @@
             zsang  = SIGN(1.e0, gphif(1,jj-1) ) * sangvg
 
-            DO ji = 2, jpim1
+            DO ji = fs_2, fs_jpim1
                ! computation of wind stress over ocean in X and Y direction
 #if defined key_coupled && defined key_lim_cp1
@@ -216 +219 @@
          ! computation of friction velocity
          DO jj = 2, jpjm1
-            DO ji = 2, jpim1
+            DO ji = fs_2, fs_jpim1
 
                zu_ice   = u_ice(ji,jj) - u_io(ji,jj)
@@ -245 +248 @@
                ! virer ca (key_lim_cp1)
           DO jj = 2, jpjm1
-             DO ji = 2, jpim1
+             DO ji = fs_2, fs_jpim1
 #if defined key_coupled && defined key_lim_cp1
                 tio_u(ji,jj) = - (  gtaux(ji  ,jj  ) + gtaux(ji-1,jj  )       &