- Timestamp:
- 2015-04-29T10:35:19+02:00 (9 years ago)
- 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 39 39 USE zdfmxl ! mixed layer 40 40 USE dianam ! build name of file (routine) 41 USE zdftke ! vertical physics: one-equation scheme 41 42 USE zdfddm ! vertical physics: double diffusion 42 43 USE diahth ! thermocline diagnostics … … 78 79 !!---------------------------------------------------------------------- 79 80 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 80 !! $Id 81 !! $Id$ 81 82 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 82 83 !!---------------------------------------------------------------------- … … 218 219 CALL iom_put( "avt" , avt ) ! T vert. eddy diff. coef. 219 220 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 220 225 IF( lk_zdfddm ) THEN 221 226 CALL iom_put( "avs" , fsavs(:,:,:) ) ! S vert. eddy diff. coef.
Note: See TracChangeset
for help on using the changeset viewer.