New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5239 for branches/UKMO/dev_r5021_nn_etau_revision/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90 – NEMO

Ignore:
Timestamp:
2015-04-29T10:35:19+02:00 (9 years ago)
Author:
davestorkey
Message:

Commit changes to UKMO nn_etau revision branch (including clearing
SVN keywords).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5021_nn_etau_revision/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    • Property svn:keywords deleted
    r4990 r5239  
    3939   USE zdfmxl          ! mixed layer 
    4040   USE dianam          ! build name of file (routine) 
     41   USE zdftke          ! vertical physics: one-equation scheme  
    4142   USE zdfddm          ! vertical  physics: double diffusion 
    4243   USE diahth          ! thermocline diagnostics 
     
    7879   !!---------------------------------------------------------------------- 
    7980   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    80    !! $Id $ 
     81   !! $Id$ 
    8182   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    8283   !!---------------------------------------------------------------------- 
     
    218219      CALL iom_put(    "avt"  , avt                        )    ! T vert. eddy diff. coef. 
    219220      CALL iom_put(    "avm"  , avmu                       )    ! T vert. eddy visc. coef. 
     221      IF( lk_zdftke ) THEN   
     222         CALL iom_put( "tke"      , en                               )    ! TKE budget: Turbulent Kinetic Energy   
     223         CALL iom_put( "tke_niw"  , e_niw                            )    ! TKE budget: Near-inertial waves   
     224      ENDIF 
    220225      IF( lk_zdfddm ) THEN 
    221226         CALL iom_put( "avs" , fsavs(:,:,:)                          )    ! S vert. eddy diff. coef. 
Note: See TracChangeset for help on using the changeset viewer.