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 13530 for NEMO/trunk/src/OCE – NEMO

Changeset 13530 for NEMO/trunk/src/OCE


Ignore:
Timestamp:
2020-09-28T11:16:49+02:00 (3 years ago)
Author:
clem
Message:

remove duplicated lines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/ZDF/zdftke.F90

    r13497 r13530  
    5252#endif 
    5353   ! 
    54 #if defined key_si3 
    55    USE ice, ONLY: hm_i, h_i 
    56 #endif 
    57 #if defined key_cice 
    58    USE sbc_ice, ONLY: h_i 
    59 #endif 
    6054   USE in_out_manager ! I/O manager 
    6155   USE iom            ! I/O manager library 
     
    382376!!gm BUG : in the exp  remove the depth of ssh !!! 
    383377!!gm       i.e. use gde3w in argument (gdepw(:,:,:,Kmm)) 
    384        
    385        
     378      ! 
     379      ! penetration is partly switched off below sea-ice if nn_eice/=0 
     380      ! 
    386381      IF( nn_etau == 1 ) THEN           !* penetration below the mixed layer (rn_efr fraction) 
    387          DO_3D( 0, 0, 0, 0, 2, jpkm1 )     ! nn_eice=0 : ON below sea-ice ; nn_eice>0 : partly OFF  
     382         DO_3D( 0, 0, 0, 0, 2, jpkm1 )  
    388383            en(ji,jj,jk) = en(ji,jj,jk) + rn_efr * en(ji,jj,1) * EXP( -gdepw(ji,jj,jk,Kmm) / htau(ji,jj) )   & 
    389384               &                                 * MAX( 0._wp, 1._wp - zice_fra(ji,jj) ) * wmask(ji,jj,jk) * tmask(ji,jj,1) 
     
    396391         END_2D 
    397392      ELSEIF( nn_etau == 3 ) THEN       !* penetration belox the mixed layer (HF variability) 
    398          DO_3D( 0, 0, 0, 0, 2, jpkm1 )         ! nn_eice=0 : ON below sea-ice ; nn_eice>0 : partly OFF 
     393         DO_3D( 0, 0, 0, 0, 2, jpkm1 ) 
    399394            ztx2 = utau(ji-1,jj  ) + utau(ji,jj) 
    400395            zty2 = vtau(ji  ,jj-1) + vtau(ji,jj) 
     
    655650         WRITE(numout,*) '      mixing length type                          nn_mxl    = ', nn_mxl 
    656651         WRITE(numout,*) '         surface mixing length = F(stress) or not    ln_mxl0   = ', ln_mxl0 
    657          IF( ln_mxl0 ) THEN 
    658             WRITE(numout,*) '      type of scaling under sea-ice               nn_mxlice = ', nn_mxlice 
    659             IF( nn_mxlice == 1 ) & 
    660             WRITE(numout,*) '      ice thickness when scaling under sea-ice    rn_mxlice = ', rn_mxlice 
    661          ENDIF          
    662652         WRITE(numout,*) '         surface  mixing length minimum value        rn_mxl0   = ', rn_mxl0 
    663653         IF( ln_mxl0 ) THEN 
Note: See TracChangeset for help on using the changeset viewer.