Changeset 6448 for branches/UKMO/dev_r5518_GC3p0_package/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

Timestamp:

2016-04-07T18:21:30+02:00 (8 years ago)

Author:

dancopsey

Message:

Merged in changeset 5239 of dev_r5021_nn_etau_revision

File:

• branches/UKMO/dev_r5518_GC3p0_package/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GC3p0_package/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

@@ -39 +39 @@
    USE zdfmxl          ! mixed layer
    USE dianam          ! build name of file (routine)
+   USE zdftke          ! vertical physics: one-equation scheme 
    USE zdfddm          ! vertical  physics: double diffusion
    USE diahth          ! thermocline diagnostics
@@ -228 +229 @@
          CALL iom_put( "sbv", z2d )                ! bottom j-current
       ENDIF
+      CALL iom_put(    "avt"  , avt                        )    ! T vert. eddy diff. coef.
+      CALL iom_put(    "avm"  , avmu                       )    ! T vert. eddy visc. coef.
+      IF( lk_zdftke ) THEN  
+         CALL iom_put( "tke"      , en                               )    ! TKE budget: Turbulent Kinetic Energy  
+         CALL iom_put( "tke_niw"  , e_niw                            )    ! TKE budget: Near-inertial waves  
+      ENDIF
+      IF( lk_zdfddm ) THEN
+         CALL iom_put( "avs" , fsavs(:,:,:)                          )    ! S vert. eddy diff. coef.
 #if defined key_dynspg_ts
       CALL iom_put(  "vbar", vn_adv(:,:)      )    ! barotropic j-current