Changeset 1482 for trunk/NEMO/OPA_SRC/ZDF/zdfevd.F90

Timestamp:

2009-07-03T17:28:06+02:00 (15 years ago)

Author:

smasson

Message:

distribution of iom_put + cleaning of LIM2 outputs, see ticket:437

File:

• trunk/NEMO/OPA_SRC/ZDF/zdfevd.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/ZDF/zdfevd.F90

@@ -20 +20 @@
    USE zdfkpp          ! KPP vertical mixing
    USE in_out_manager  ! I/O manager
+   USE iom             ! for iom_put
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
 
@@ -132 +133 @@
 
       ! update of avt_evd and avmu_evd
-      avt_evd (:,:,:) = avt (:,:,:)  - avt_evd (:,:,:) 
-      avmu_evd(:,:,:) = avmu(:,:,:)  - avmu_evd(:,:,:) 
+      avt_evd (:,:,:) = avt (:,:,:) - avt_evd (:,:,:) 
+      avmu_evd(:,:,:) = avmu(:,:,:) - avmu_evd(:,:,:) 
+      CALL iom_put( "avt_evd", avt_evd  )    ! T enhan. vert. eddy diff. coef.
+      CALL iom_put( "avm_evd", avmu_evd )    ! T enhan. vert. eddy visc. coef.
 
    END SUBROUTINE zdf_evd