Skip to content
Snippets Groups Projects
Commit 5ce9975f authored by Guillaume Samson's avatar Guillaume Samson :snowman2:
Browse files

Merge branch 'no_wind_forcing' into 'main'

use zero wind value if wind speed components are set to 'NOT USED'

See merge request nemo/nemo!53
parents 1d65bcb9 f88eab07
No related branches found
No related tags found
No related merge requests found
......@@ -369,6 +369,8 @@ CONTAINS
sf(jfpr)%fnow(:,:,1:ipka) = 101325._wp ! use standard pressure in Pa
ELSEIF( jfpr == jp_prec .OR. jfpr == jp_snow .OR. jfpr == jp_uoatm .OR. jfpr == jp_voatm ) THEN
sf(jfpr)%fnow(:,:,1:ipka) = 0._wp ! no precip or no snow or no surface currents
ELSEIF( jfpr == jp_wndi .OR. jfpr == jp_wndj ) THEN
sf(jfpr)%fnow(:,:,1:ipka) = 0._wp
ELSEIF( jfpr == jp_hpgi .OR. jfpr == jp_hpgj ) THEN
IF( .NOT. ln_abl ) THEN
DEALLOCATE( sf(jfpr)%fnow ) ! deallocate as not used in this case
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment