Changeset 1482 for trunk/NEMO/OPA_SRC/ZDF

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

Location:

trunk/NEMO/OPA_SRC/ZDF

Files:

• zdfevd.F90 (modified) (2 diffs)
• zdfmxl.F90 (modified) (3 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

trunk/NEMO/OPA_SRC/ZDF/zdfmxl.F90

@@ -15 +15 @@
    USE in_out_manager  ! I/O manager
    USE prtctl          ! Print control
+   USE iom
 
    IMPLICIT NONE
@@ -101 +102 @@
          END DO
       END DO
+      CALL iom_put( "mldturb", hmld )   ! turbocline depth
 
 !!gm idea
@@ -136 +138 @@
          END DO
       END DO
-
+      CALL iom_put( "mld010", hmlp )   ! mixed layer depth
+      
       IF(ln_ctl)   CALL prt_ctl( tab2d_1=REAL(nmln,wp), clinfo1=' nmln : ', tab2d_2=hmld, clinfo2=' hmld : ', ovlap=1 )