Changeset 1328

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

Location:

trunk/NEMO/TOP_SRC/TRP

Files:

• trcldf_iso.F90 (modified) (2 diffs)
• trcldf_iso_zps.F90 (modified) (4 diffs)
• trczdf_iso_vopt.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/TRP/trcldf_iso.F90

@@ -73 +73 @@
       !!----------------------------------------------------------------------
       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) ::   zftug, zftvg
 #endif
-      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zftv                ! workspace
       CHARACTER (len=22) :: charout
       REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::   ztrtrd       ! trends arrays

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)

trunk/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90

@@ -409 +409 @@
       !!---------------------------------------------------------------------
       USE oce, ONLY :   zwx => ua,  &  ! use ua, va as
-                            zwy => va      ! workspace arrays
+                        zwy => va      ! workspace arrays
       INTEGER, INTENT(in) :: kt