Changeset 11860


Ignore:
Timestamp:
2019-11-05T17:09:12+01:00 (11 months ago)
Author:
cguiavarch
Message:

Update with an updated version of zdfosm.F90 from George Nurser

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_OSMOSIS/src/OCE/ZDF/zdfosm.F90

    r11145 r11860  
    367367              zus_y = zsin_wind(ji,jj) * zustar(ji,jj) / 0.3**2 
    368368              zustke(ji,jj) = MAX ( SQRT( zus_x*zus_x + zus_y*zus_y), 1.0e-8 ) 
     369              dstokes(ji,jj) = rn_osm_dstokes 
    369370              ! dstokes(ji,jj) set to constant value rn_osm_dstokes from namelist in zdf_osm_init 
    370371           END DO 
     
    376377              ! Use wind speed wndm included in sbc_oce module 
    377378              zustke(ji,jj) = MAX ( 0.016 * wndm(ji,jj), 1.0e-8 ) 
    378               dstokes(ji,jj) = 0.12 * wndm(ji,jj)**2 / grav 
     379              dstokes(ji,jj) = MAX( 0.12 * wndm(ji,jj)**2 / grav, 5.e-1) 
    379380           END DO 
    380381        END DO 
Note: See TracChangeset for help on using the changeset viewer.