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 2386 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90 – NEMO

Ignore:
Timestamp:
2010-11-15T12:42:16+01:00 (13 years ago)
Author:
cetlod
Message:

minor bug in zdftke : vector operation on surface mixing length ; replace taum(ji,jj) by taum(:,:)

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2382 r2386  
    478478      IF( ln_mxl0 ) THEN            ! surface mixing length = F(stress) : l=vkarmn*2.e5*taum/(rau0*g) 
    479479         zraug = vkarmn * 2.e5_wp / ( rau0 * grav ) 
    480          zmxlm(:,:,1) = MAX(  rn_mxl0,  zraug * taum(ji,jj)  ) 
     480         zmxlm(:,:,1) = MAX(  rn_mxl0,  zraug * taum(:,:)  ) 
    481481      ELSE                          ! surface set to the minimum value 
    482482         zmxlm(:,:,1) = rn_mxl0 
Note: See TracChangeset for help on using the changeset viewer.