Changeset 15298 for NEMO/trunk/src/OCE/ZDF/zdfevd.F90

Timestamp:

2021-09-28T12:06:42+02:00 (2 years ago)

Author:

cetlod

Message:

minor bugfix in zdfevd

File:

• NEMO/trunk/src/OCE/ZDF/zdfevd.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/ZDF/zdfevd.F90

@@ -128 +128 @@
          zavt_evd(ji,jj,jk) = p_avt(ji,jj,jk) - zavt_evd(ji,jj,jk)   ! change in avt due to evd
       END_3D
+      !
+      IF( l_trdtra ) CALL trd_tra( kt, Kmm, Krhs, 'TRA', jp_tem, jptra_evd, zavt_evd )
+      !
       IF( .NOT. l_istiled .OR. ntile == nijtile ) THEN                       ! Do only on the last tile
          CALL iom_put( "avt_evd", zavt_evd )              ! output this change
          DEALLOCATE( zavt_evd )
       ENDIF
-      IF( l_trdtra ) CALL trd_tra( kt, Kmm, Krhs, 'TRA', jp_tem, jptra_evd, zavt_evd )
       !
    END SUBROUTINE zdf_evd