Changeset 1328


Ignore:
Timestamp:
2009-02-20T11:30:06+01:00 (12 years ago)
Author:
cetlod
Message:

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

Location:
trunk/NEMO/TOP_SRC/TRP
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/TRP/trcldf_iso.F90

    r1193 r1328  
    7373      !!---------------------------------------------------------------------- 
    7474      USE oce_trc       , zftu => ua,  &  ! use ua as workspace 
    75          &                zfsu => va      ! use va as workspace 
     75         &                zftv => va      ! use va as workspace 
    7676      !! 
    7777      INTEGER, INTENT( in ) ::   kt                             ! ocean time-step index 
     
    8888      REAL(wp), DIMENSION(jpi,jpj) ::   zftug, zftvg 
    8989#endif 
    90       REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zftv                ! workspace 
    9190      CHARACTER (len=22) :: charout 
    9291      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::   ztrtrd       ! trends arrays 
  • trunk/NEMO/TOP_SRC/TRP/trcldf_iso_zps.F90

    r1264 r1328  
    7474      !!---------------------------------------------------------------------- 
    7575      USE oce_trc       , zftu => ua,  &  ! use ua as workspace 
    76          &                zfsu => va      ! use va as workspace 
     76         &                zftv => va      ! use va as workspace 
    7777      !! 
    7878      INTEGER, INTENT( in ) ::   kt       ! ocean time-step index 
     
    8888 
    8989      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   &  
    90          zftv, zgtbu, zgtbv               ! temporary workspace 
     90         zgtbu, zgtbv               ! temporary workspace 
    9191 
    9292#if defined key_trcldf_eiv 
     
    127127         !                                                       ! =========== 
    128128         IF( l_trdtrc ) ztrtrd(:,:,:) = tra(:,:,:,jn)   ! save trends 
    129  
    130          ztagu = 0.e0    ;     ztagv = 0.e0 
    131  
     129       
     130         zgtbu(:,:,:) = 0.     ;     zgtbv(:,:,:) = 0. 
    132131         ! Horizontal passive tracer gradient  
    133132         DO jk = 1, jpk 
     
    323322      END DO                                                     ! tracer loop 
    324323      !                                                          ! =========== 
     324      IF( l_trdtrc ) THEN 
     325         DEALLOCATE( ztrtrd ) 
     326#   if defined key_trcldf_eiv 
     327         DEALLOCATE( ztrtrd_xei ) 
     328         DEALLOCATE( ztrtrd_yei ) 
     329#   endif 
     330      ENDIF 
    325331 
    326332      IF( ln_ctl ) THEN    ! print mean trends (used for debugging) 
  • trunk/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90

    r1271 r1328  
    409409      !!--------------------------------------------------------------------- 
    410410      USE oce, ONLY :   zwx => ua,  &  ! use ua, va as 
    411                             zwy => va      ! workspace arrays 
     411                        zwy => va      ! workspace arrays 
    412412      INTEGER, INTENT(in) :: kt 
    413413 
Note: See TracChangeset for help on using the changeset viewer.