Changeset 895 for trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90

Timestamp:

2008-04-21T17:32:02+02:00 (16 years ago)

Author:

rblod

Message:

Fix small bugs in sea-ice (previous commit) and old flyspray: 189, 185, 161

File:

• trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90

@@ -137 +137 @@
             ! Compute aeiw by multiplying Ro^2 and T^-1
             aeiw(ji,jj) = zross(ji,jj) * zross(ji,jj) * SQRT( zah(ji,jj) / zhw(ji,jj) ) * tmask(ji,jj,1)
-            IF( cp_cfg == "orca" .AND. jp_cfg == 2 ) THEN   ! ORCA R02
+         END DO
+      END DO
+
+      IF( cp_cfg == "orca" .AND. jp_cfg == 2 ) THEN   ! ORCA R02
+         DO jj = 2, jpjm1
+!CDIR NOVERRCHK 
+            DO ji = fs_2, fs_jpim1   ! vector opt.
                ! Take the minimum between aeiw and aeiv0 for depth levels
                ! lower than 20 (21 in w- point)
                IF( mbathy(ji,jj) <= 21. ) aeiw(ji,jj) = MIN( aeiw(ji,jj), 1000. )
-            ENDIF
-         END DO
-      END DO
+            END DO
+         END DO
+      ENDIF
 
       ! Decrease the coefficient in the tropics (20N-20S)