Changeset 2558 for trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

Timestamp:

2011-01-14T14:54:50+01:00 (14 years ago)

Author:

flavoni

Message:

added missing array's initialisation in traadv.f90

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

@@ -83 +83 @@
          zwn(:,:,jk) = e1t(:,:) * e2t(:,:)      * wn(:,:,jk)
       END DO
-      zwn(:,:,jpk) = 0.e0                                                     ! no transport trough the bottom
+      zun(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom
+      zvn(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom
+      zwn(:,:,jpk) = 0._wp                                                     ! no transport trough the bottom
       !
       IF( lk_traldf_eiv .AND. .NOT. ln_traldf_grif )   &