Changeset 2587 for branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/DYN/dynzad_tam.F90

Timestamp:

2011-02-15T12:58:59+01:00 (13 years ago)

Author:

vidard

Message:

refer to ticket #798

File:

• branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/DYN/dynzad_tam.F90 (modified) (2 diffs)

branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/DYN/dynzad_tam.F90

@@ -131 +131 @@
       DO jj = 2, jpjm1              ! Surface and bottom values set to zero
          DO ji = fs_2, fs_jpim1           ! vector opt.
-            zwuwtl(ji,jj, 1 ) = 0.e0
-            zwvwtl(ji,jj, 1 ) = 0.e0
-            zwuwtl(ji,jj,jpk) = 0.e0
-            zwvwtl(ji,jj,jpk) = 0.e0
+            zwuwtl(ji,jj, 1 ) = 0.0_wp
+            zwvwtl(ji,jj, 1 ) = 0.0_wp
+            zwuwtl(ji,jj,jpk) = 0.0_wp
+            zwvwtl(ji,jj,jpk) = 0.0_wp
          END DO
       END DO
@@ -210 +210 @@
          END DO
       END DO
+      DO jj = 2, jpjm1              ! Surface and bottom values set to zero
+         DO ji = fs_2, fs_jpim1           ! vector opt.
+            zwuwad(ji,jj, 1 ) = 0.0_wp
+            zwvwad(ji,jj, 1 ) = 0.0_wp
+            zwuwad(ji,jj,jpk) = 0.0_wp
+            zwvwad(ji,jj,jpk) = 0.0_wp
+         END DO
+      END DO
       DO jk = jpkm1, 2, -1             ! Vertical momentum advection at level w and u- and v- vertical
          DO jj = 2, jpj                   ! vertical fluxes