Changeset 10024


Ignore:
Timestamp:
2018-08-02T14:05:33+02:00 (2 years ago)
Author:
davestorkey
Message:

Bug fix for traadv_fct.F90. Ticket #2122

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/TRA/traadv_fct.F90

    r9901 r10024  
    311311            IF( l_hst )   CALL dia_ar5_hst( jn, 'adv', ztrdx(:,:,:), ztrdy(:,:,:) ) 
    312312            ! 
    313             DEALLOCATE( ztrdx, ztrdy, ztrdz ) 
    314313         ENDIF 
    315314         IF( l_ptr ) THEN              ! "Poleward" transports 
    316315            zptry(:,:,:) = zptry(:,:,:) + zwy(:,:,:)  ! <<< add anti-diffusive fluxes 
    317316            CALL dia_ptr_hst( jn, 'adv', zptry(:,:,:) ) 
    318             DEALLOCATE( zptry ) 
    319317         ENDIF 
    320318         ! 
    321319      END DO                     ! end of tracer loop 
     320      ! 
     321      IF( l_trd .OR. l_hst ) THEN  
     322         DEALLOCATE( ztrdx, ztrdy, ztrdz ) 
     323      ENDIF 
     324      IF( l_ptr ) THEN  
     325         DEALLOCATE( zptry ) 
     326      ENDIF 
    322327      ! 
    323328   END SUBROUTINE tra_adv_fct 
Note: See TracChangeset for help on using the changeset viewer.