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 !53
parents 1d65bcb9 f88eab07
No related branches found
No related tags found
No related merge requests found
...@@ -369,6 +369,8 @@ CONTAINS ...@@ -369,6 +369,8 @@ CONTAINS
sf(jfpr)%fnow(:,:,1:ipka) = 101325._wp ! use standard pressure in Pa 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 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 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 ELSEIF( jfpr == jp_hpgi .OR. jfpr == jp_hpgj ) THEN
IF( .NOT. ln_abl ) THEN IF( .NOT. ln_abl ) THEN
DEALLOCATE( sf(jfpr)%fnow ) ! deallocate as not used in this case 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