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 2303 – NEMO

Changeset 2303


Ignore:
Timestamp:
2010-10-22T16:51:08+02:00 (14 years ago)
Author:
rblod
Message:

Suppress old TKE see ticket #742

Location:
branches/nemo_v3_3_beta/NEMOGCM/NEMO
Files:
1 deleted
8 edited

Legend:

Unmodified
Added
Removed

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/C1D_SRC/diawri_c1d.F90

    r2287 r2303  
    2020   USE sbcmod          ! surface Boundary Codition 
    2121   USE sbcssr          ! surface boundary condition: restauring to SSS and or SST 
    22    USE zdftke_old      ! TKE vertical mixing (old scheme) 
    2322   USE zdftke          ! TKE vertical mixing 
    2423   USE zdfkpp          ! KPP vertical mixing 
    … …  
    221220         CALL histdef( nid_T, "sometauy", "Wind Stress along j-axis"           , "N/m2"   ,   &  ! vtau 
    222221            &          jpi, jpj, nh_T, 1  , 1, 1  , - 99, 32, clop, zsto, zout ) 
    223 #if defined key_zdftke_old 
    224          CALL histdef( nid_T, "votlsdis", " Dissipation Turbulent Lenght Scale", "m"      ,   &  ! e_dis 
    225             &          jpi, jpj, nh_T, ipk, 1, ipk, nz_T, 32, clop, zsto, zout ) 
    226          CALL histdef( nid_T, "votlsmix", " Mixing Turbulent Lenght Scale"     , "m"      ,   &  ! e_mix 
    227             &          jpi, jpj, nh_T, ipk, 1, ipk, nz_T, 32, clop, zsto, zout ) 
    228          CALL histdef( nid_T, "votlspdl", " Prandl Number",                      "-"       ,   &  ! e_pdl 
    229             &          jpi, jpj, nh_T, ipk, 1, ipk, nz_T, 32, clop, zsto, zout ) 
    230          CALL histdef( nid_T, "votlsric", " Local Richardson Number",            "-"       ,   &  ! e_ric 
    231             &          jpi, jpj, nh_T, ipk, 1, ipk, nz_T, 32, clop, zsto, zout ) 
    232          CALL histdef( nid_T, "votkeend", "TKE: Turbulent kinetic energy"       , "m2/s"   ,   &  ! TKE 
    233             &          jpi, jpj, nh_T, ipk, 1, ipk, nz_T, 32, clop, zsto, zout ) 
    234          CALL histdef( nid_T, "sotkehlc", "TKE: Langmuir Circulation depth"     , "m"      ,   &  ! hlc 
    235             &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout ) 
    236 #endif 
    237222#if defined key_zdfkpp 
    238223         CALL histdef( nid_T, "vokpprig", " Gradient Richardson Number"        ,  "-"      ,   &  ! rig 
    … …  
    317302      CALL histwrite( nid_T, "vomecrty", it, vn            , ndim_T , ndex_T  )   ! j-current 
    318303      CALL histwrite( nid_T, "sometauy", it, vtau          , ndim_hT, ndex_hT )   ! j-wind stress 
    319 #if defined key_zdftke_old 
    320       CALL histwrite( nid_T, "votlsdis", it, e_dis         , ndim_T , ndex_T )    ! Diss. Turb. lenght scale 
    321       CALL histwrite( nid_T, "votlsmix", it, e_mix         , ndim_T , ndex_T )    ! Mixing Turb. lenght scale 
    322       CALL histwrite( nid_T, "votlspdl", it, e_pdl         , ndim_T , ndex_T )    ! Prandl number 
    323       CALL histwrite( nid_T, "votlsric", it, e_ric         , ndim_T , ndex_T )    ! local Richardson number 
    324       CALL histwrite( nid_T, "votkeend", it, en            , ndim_T , ndex_T )    ! TKE 
    325       CALL histwrite( nid_T, "sotkehlc", it, hlc           , ndim_hT, ndex_hT )   ! TKE Langmuir Circulation depth 
    326 #endif 
    327304#if defined key_zdfkpp 
    328305      CALL histwrite( nid_T, "vokpprig", it, rig           , ndim_T , ndex_T )    ! gradient Richardson number 

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf.F90

    r2287 r2303  
    102102      !!                explicit (time-splitting) scheme if ln_zdfexp=T 
    103103      !!---------------------------------------------------------------------- 
    104       USE zdftke_old 
    105104      USE zdftke 
    106105      USE zdfgls 
    … …  
    114113      ! 
    115114      ! Force implicit schemes 
    116       IF( lk_zdftke_old .OR. lk_zdftke .OR. lk_zdfgls .OR. lk_zdfkpp )   nzdf = 1   ! TKE, GLS or KPP physics 
    117       IF( ln_dynldf_iso                                              )   nzdf = 1   ! iso-neutral lateral physics 
    118       IF( ln_dynldf_hor .AND. ln_sco                                 )   nzdf = 1   ! horizontal lateral physics in s-coordinate 
     115      IF( lk_zdftke .OR. lk_zdfgls .OR. lk_zdfkpp )   nzdf = 1   ! TKE, GLS or KPP physics 
     116      IF( ln_dynldf_iso                           )   nzdf = 1   ! iso-neutral lateral physics 
     117      IF( ln_dynldf_hor .AND. ln_sco              )   nzdf = 1   ! horizontal lateral physics in s-coordinate 
    119118      ! 
    120119      IF( lk_esopa )    nzdf = -1                   ! Esopa key: All schemes used 

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf.F90

    r2287 r2303  
    119119      !!      the implicit scheme is required. 
    120120      !!---------------------------------------------------------------------- 
    121       USE zdftke_old 
    122121      USE zdftke 
    123122      USE zdfgls 
    … …  
    131130 
    132131      ! Force implicit schemes 
    133       IF( lk_zdftke_old .OR. lk_zdftke .OR. lk_zdfgls .OR. lk_zdfkpp )   nzdf = 1      ! TKE, GLS or KPP physics 
    134       IF( ln_traldf_iso                                              )   nzdf = 1      ! iso-neutral lateral physics 
    135       IF( ln_traldf_hor .AND. ln_sco                                 )   nzdf = 1      ! horizontal lateral physics in s-coordinate 
     132      IF( lk_zdftke .OR. lk_zdfgls .OR. lk_zdfkpp )   nzdf = 1      ! TKE, GLS or KPP physics 
     133      IF( ln_traldf_iso                           )   nzdf = 1      ! iso-neutral lateral physics 
     134      IF( ln_traldf_hor .AND. ln_sco              )   nzdf = 1      ! horizontal lateral physics in s-coordinate 
    136135      IF( ln_zdfexp .AND. nzdf == 1 )   CALL ctl_stop( 'tra_zdf : If using the rotation of lateral mixing operator',   & 
    137136            &                         ' TKE or KPP scheme, the implicit scheme is required, set ln_zdfexp = .false.' ) 

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90

    r2287 r2303  
    1818   USE zdf_oce         ! TKE vertical mixing           
    1919   USE lib_mpp         ! distribued memory computing 
    20    USE zdftke_old      ! TKE vertical mixing  (old scheme) 
    2120   USE zdftke          ! TKE vertical mixing 
    2221   USE zdfgls          ! GLS vertical mixing 
    … …  
    9998         ioptio = ioptio+1 
    10099      ENDIF 
    101       IF( lk_zdftke_old ) THEN 
    102          IF(lwp) WRITE(numout,*) '      TKE dependent eddy coefficients' 
    103          ioptio = ioptio+1 
    104       ENDIF 
    105100      IF( lk_zdftke ) THEN 
    106101         IF(lwp) WRITE(numout,*) '      TKE dependent eddy coefficients' 
    … …  
    130125         ioptio = ioptio+1 
    131126      ENDIF 
    132       IF( lk_zdftke_old .OR. lk_zdftke ) THEN 
     127      IF( lk_zdftke ) THEN 
    133128         IF(lwp) WRITE(numout,*) '      use the 1.5 turbulent closure' 
    134129      ENDIF 
    … …  
    144139      ENDIF 
    145140      IF ( ioptio > 1 .AND. .NOT. lk_esopa )   CALL ctl_stop( ' chose between ln_zdfnpc and ln_zdfevd' ) 
    146       IF( ioptio == 0 .AND. .NOT.( lk_zdftke_old .OR. lk_zdftke .OR. lk_zdfgls .OR. lk_zdfkpp ) ) & 
     141      IF( ioptio == 0 .AND. .NOT.( lk_zdftke .OR. lk_zdfgls .OR. lk_zdfkpp ) ) & 
    147142         CALL ctl_stop( ' except for TKE, GLS or KPP physics, a convection scheme is', & 
    148143         &              ' required: ln_zdfevd or ln_zdfnpc logicals' ) 

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/opa.F90

    r2287 r2303  
    276276                            CALL zdf_bfr_init      ! bottom friction 
    277277      IF( lk_zdfric     )   CALL zdf_ric_init      ! Richardson number dependent Kz 
    278       IF( lk_zdftke_old )   CALL zdf_tke_init_o    ! TKE closure scheme for Kz (old scheme) 
    279278      IF( lk_zdftke     )   CALL zdf_tke_init      ! TKE closure scheme for Kz 
    280279      IF( lk_zdfkpp     )   CALL zdf_kpp_init      ! KPP closure scheme for Kz 

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/step.F90

    r2287 r2303  
    121121      !                                               ! Vertical eddy viscosity and diffusivity coefficients 
    122122      IF( lk_zdfric     )   CALL zdf_ric    ( kstp )  ! Richardson number dependent Kz 
    123       IF( lk_zdftke_old )   CALL zdf_tke_old( kstp )  ! TKE closure scheme for Kz (old scheme) 
    124123      IF( lk_zdftke     )   CALL zdf_tke    ( kstp )  ! TKE closure scheme for Kz 
    125124      IF( lk_zdfgls     )   CALL zdf_gls    ( kstp )  ! GLS closure scheme for Kz 

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/step_oce.F90

    r2287 r2303  
    6767   USE zdftmx           ! tide-induced vertical mixing     (zdf_tmx routine) 
    6868   USE zdfbfr           ! bottom friction                  (zdf_bfr routine) 
    69    USE zdftke_old       ! old TKE vertical mixing      (zdf_tke_old routine) 
    7069   USE zdftke           ! TKE vertical mixing              (zdf_tke routine) 
    7170   USE zdfkpp           ! KPP vertical mixing              (zdf_kpp routine) 

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/TRP/trczdf.F90

    r2287 r2303  
    136136      IF( ln_trcldf_iso                               )   nzdf = 1      ! iso-neutral lateral physics 
    137137      IF( ln_trcldf_hor .AND. ln_sco                  )   nzdf = 1      ! horizontal lateral physics in s-coordinate 
    138 #if defined key_zdftke || defined key_zdftke_old || defined key_zdfkpp 
     138#if defined key_zdftke || defined key_zdfkpp 
    139139                                                          nzdf = 1      ! TKE or KPP physics        
    140140#endif 
Note: See TracChangeset for help on using the changeset viewer.