Changeset 1328 for trunk/NEMO/TOP_SRC/TRP/trcldf_iso.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.F90 (modified) (2 diffs)

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