Changeset 15298


Ignore:
Timestamp:
2021-09-28T12:06:42+02:00 (4 months ago)
Author:
cetlod
Message:

minor bugfix in zdfevd

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/ZDF/zdfevd.F90

    r14834 r15298  
    128128         zavt_evd(ji,jj,jk) = p_avt(ji,jj,jk) - zavt_evd(ji,jj,jk)   ! change in avt due to evd 
    129129      END_3D 
     130      ! 
     131      IF( l_trdtra ) CALL trd_tra( kt, Kmm, Krhs, 'TRA', jp_tem, jptra_evd, zavt_evd ) 
     132      ! 
    130133      IF( .NOT. l_istiled .OR. ntile == nijtile ) THEN                       ! Do only on the last tile 
    131134         CALL iom_put( "avt_evd", zavt_evd )              ! output this change 
    132135         DEALLOCATE( zavt_evd ) 
    133136      ENDIF 
    134       IF( l_trdtra ) CALL trd_tra( kt, Kmm, Krhs, 'TRA', jp_tem, jptra_evd, zavt_evd ) 
    135137      ! 
    136138   END SUBROUTINE zdf_evd 
Note: See TracChangeset for help on using the changeset viewer.