Changeset 988 for trunk/NEMO/LIM_SRC_3/limrhg.F90

Timestamp:

2008-05-16T18:07:42+02:00 (16 years ago)

Author:

rblod

Message:

Minor bugs, see ticket #153

File:

• trunk/NEMO/LIM_SRC_3/limrhg.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC_3/limrhg.F90

@@ -328 +328 @@
 
          DO jj = k_j1+1, k_jpj-1
-            DO ji = fs_2, fs_jpim1
+            DO ji = fs_2, jpim1   !RB bug no vect opt due to tmi
 
                !  
@@ -654 +654 @@
       DO jj = k_j1+1, k_jpj-1
 !CDIR NOVERRCHK
-         DO ji = fs_2, fs_jpim1
+         DO ji = fs_2, jpim1   !RB bug no vect opt due to tmi
             !- zdd(:,:), zdt(:,:): divergence and tension at centre 
             !- zds(:,:): shear on northeast corner of grid cells