Changeset 10955 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/ZDF/zdftke.F90
- Timestamp:
- 2019-05-10T11:15:50+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/ZDF/zdftke.F90
r10883 r10955 630 630 631 631 632 SUBROUTINE zdf_tke_init 632 SUBROUTINE zdf_tke_init( Kmm ) 633 633 !!---------------------------------------------------------------------- 634 634 !! *** ROUTINE zdf_tke_init *** … … 646 646 USE zdf_oce , ONLY : ln_zdfiwm ! Internal Wave Mixing flag 647 647 !! 648 INTEGER :: ji, jj, jk ! dummy loop indices 649 INTEGER :: ios 648 INTEGER, INTENT(in) :: Kmm ! time level index 649 INTEGER :: ji, jj, jk ! dummy loop indices 650 INTEGER :: ios 650 651 !! 651 652 NAMELIST/namzdf_tke/ rn_ediff, rn_ediss , rn_ebb , rn_emin , & … … 724 725 ENDIF 725 726 726 IF( nn_etau == 2 ) CALL zdf_mxl( nit000 ) ! Initialization of nmln727 IF( nn_etau == 2 ) CALL zdf_mxl( nit000, Kmm ) ! Initialization of nmln 727 728 728 729 ! !* depth of penetration of surface tke
Note: See TracChangeset
for help on using the changeset viewer.