Changeset 11250


Ignore:
Timestamp:
2019-07-11T12:43:10+02:00 (13 months ago)
Author:
agn
Message:

correctly specify dstokes for nn_osm_wave 0 & 1

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/OCE/ZDF/zdfosm.F90

    r11143 r11250  
    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.