Changeset 11250 for NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/OCE/ZDF/zdfosm.F90

Timestamp:

2019-07-11T12:43:10+02:00 (5 years ago)

Author:

agn

Message:

correctly specify dstokes for nn_osm_wave 0 & 1

File:

• NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/OCE/ZDF/zdfosm.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/OCE/ZDF/zdfosm.F90

@@ -367 +367 @@
               zus_y = zsin_wind(ji,jj) * zustar(ji,jj) / 0.3**2
               zustke(ji,jj) = MAX ( SQRT( zus_x*zus_x + zus_y*zus_y), 1.0e-8 )
+              dstokes(ji,jj) = rn_osm_dstokes
               ! dstokes(ji,jj) set to constant value rn_osm_dstokes from namelist in zdf_osm_init
            END DO
@@ -376 +377 @@
               ! Use wind speed wndm included in sbc_oce module
               zustke(ji,jj) = MAX ( 0.016 * wndm(ji,jj), 1.0e-8 )
-              dstokes(ji,jj) = 0.12 * wndm(ji,jj)**2 / grav
+              dstokes(ji,jj) = MAX( 0.12 * wndm(ji,jj)**2 / grav, 5.e-1)
            END DO
         END DO