Changeset 1328 for trunk/NEMO/TOP_SRC/TRP/trcldf_iso_zps.F90

Timestamp:

2009-02-20T11:30:06+01:00 (15 years ago)

Author:

cetlod

Message:

initialisation of local variables in trcldf_iso... modules, see ticket:352

File:

• trunk/NEMO/TOP_SRC/TRP/trcldf_iso_zps.F90 (modified) (4 diffs)

trunk/NEMO/TOP_SRC/TRP/trcldf_iso_zps.F90

@@ -74 +74 @@
       !!----------------------------------------------------------------------
       USE oce_trc       , zftu => ua,  &  ! use ua as workspace
-         &                zfsu => va      ! use va as workspace
+         &                zftv => va      ! use va as workspace
       !!
       INTEGER, INTENT( in ) ::   kt       ! ocean time-step index
@@ -88 +88 @@
 
       REAL(wp), DIMENSION(jpi,jpj,jpk) ::   & 
-         zftv, zgtbu, zgtbv               ! temporary workspace
+         zgtbu, zgtbv               ! temporary workspace
 
 #if defined key_trcldf_eiv
@@ -127 +127 @@
          !                                                       ! ===========
          IF( l_trdtrc ) ztrtrd(:,:,:) = tra(:,:,:,jn)   ! save trends
-
-         ztagu = 0.e0    ;     ztagv = 0.e0
-
+      
+         zgtbu(:,:,:) = 0.     ;     zgtbv(:,:,:) = 0.
          ! Horizontal passive tracer gradient 
          DO jk = 1, jpk
@@ -323 +322 @@
       END DO                                                     ! tracer loop
       !                                                          ! ===========
+      IF( l_trdtrc ) THEN
+         DEALLOCATE( ztrtrd )
+#   if defined key_trcldf_eiv
+         DEALLOCATE( ztrtrd_xei )
+         DEALLOCATE( ztrtrd_yei )
+#   endif
+      ENDIF
 
       IF( ln_ctl ) THEN    ! print mean trends (used for debugging)