Newer
Older
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
IF( l_hst ) CALL dia_ar5_hst( jn, 'adv', ztrdx(:,:,:), ztrdy(:,:,:) )
!
ENDIF
! NOT TESTED - NEED l_ptr TRUE
IF( l_ptr ) THEN ! "Poleward" transports
zptry(:,:,:) = zptry(:,:,:) + zwy_3d(:,:,:) ! <<< add anti-diffusive fluxes
CALL dia_ptr_hst( jn, 'adv', zptry(:,:,:) )
ENDIF
!
END DO ! end of tracer loop
!
IF ( ll_zAimp ) THEN
DEALLOCATE( zwdia, zwinf, zwsup )
ENDIF
IF( l_trd .OR. l_hst ) THEN
DEALLOCATE( ztrdx, ztrdy, ztrdz )
ENDIF
IF( l_ptr ) THEN
DEALLOCATE( zptry )
ENDIF
!
END SUBROUTINE tra_adv_fct_lf
#endif
!!======================================================================
END MODULE traadv_fct