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 13012 for NEMO – NEMO

Changeset 13012 for NEMO


Ignore:
Timestamp:
2020-06-03T10:15:01+02:00 (4 years ago)
Author:
smasson
Message:

trunk: minor bugfixes introduced in [13007]

File:
1 edited

Legend:

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

    r13007 r13012  
    7070   INTEGER  ::   nn_mxl    ! type of mixing length (=0/1/2/3) 
    7171   REAL(wp) ::   rn_mxl0   ! surface  min value of mixing length (kappa*z_o=0.4*0.1 m)  [m] 
     72   INTEGER  ::      nn_mxlice ! type of scaling under sea-ice 
     73   REAL(wp) ::      rn_mxlice ! max constant ice thickness value when scaling under sea-ice ( nn_mxlice=1) 
    7274   INTEGER  ::   nn_pdl    ! Prandtl number or not (ratio avt/avm) (=0/1) 
    7375   REAL(wp) ::   rn_ediff  ! coefficient for avt: avt=rn_ediff*mxl*sqrt(e) 
     
    442444      zmxld(:,:,:)  = rmxl_min 
    443445      ! 
    444      IF( ln_mxl0 ) THEN            ! surface mixing length = F(stress) : l=vkarmn*2.e5*taum/(rau0*g) 
    445          ! 
    446          zraug = vkarmn * 2.e5_wp / ( rau0 * grav ) 
     446     IF( ln_mxl0 ) THEN            ! surface mixing length = F(stress) : l=vkarmn*2.e5*taum/(rho0*g) 
     447         ! 
     448         zraug = vkarmn * 2.e5_wp / ( rho0 * grav ) 
    447449#if ! defined key_si3 && ! defined key_cice 
    448450         DO_2D_00_00 
Note: See TracChangeset for help on using the changeset viewer.