Changeset 15668 for NEMO/branches/UKMO/NEMO_4.0.4_GO6_mixing/src/OCE/DIA/diawri.F90

Timestamp:

2022-01-24T15:52:46+01:00 (2 years ago)

Author:

davestorkey

Message:

UKMO/NEMO_4.0.4_GO6_mixing : new option for htau profile.

File:

• NEMO/branches/UKMO/NEMO_4.0.4_GO6_mixing/src/OCE/DIA/diawri.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_GO6_mixing/src/OCE/DIA/diawri.F90

@@ -43 +43 @@
    USE zdfdrg         ! ocean vertical physics: top/bottom friction
    USE zdfmxl         ! mixed layer
+   USE zdftke, ONLY: htau
    !
    USE lbclnk         ! ocean lateral boundary conditions (or mpp link)
@@ -229 +230 @@
       CALL iom_put( "avs" , avs )                  ! S vert. eddy diff. coef.
       CALL iom_put( "avm" , avm )                  ! T vert. eddy visc. coef.
+      CALL iom_put( "htau" , htau )                ! htau scaling
 
       IF( iom_use('logavt') )   CALL iom_put( "logavt", LOG( MAX( 1.e-20_wp, avt(:,:,:) ) ) )