Changeset 7763

Timestamp:

2017-03-07T11:30:35+01:00 (7 years ago)

Author:

jcastill

Message:

Check the forced wave fields in case the wave and ocean land/sea masks are not the same - might be this has to be done in coupled mode too, but so far it is working as it is

File:

• branches/UKMO/r6232_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90 (modified) (2 diffs)

branches/UKMO/r6232_INGV1_WAVE-coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90

@@ -209 +209 @@
          CALL fld_read( kt, nn_fsbc, sf_cd )             ! read from external forcing
          cdn_wave(:,:) = sf_cd(1)%fnow(:,:,1)
+         ! check that the drag coefficient contains proper information even if
+         ! the masks do not match - the momentum stress is not masked!
+         WHERE( cdn_wave < 0.0 ) cdn_wave = 1.5e-3
+         WHERE( cdn_wave > 1.0 ) cdn_wave = 1.5e-3
       ENDIF
 
@@ -214 +218 @@
          CALL fld_read( kt, nn_fsbc, sf_tauoc )          ! read wave norm stress from external forcing
          tauoc_wave(:,:) = sf_tauoc(1)%fnow(:,:,1)
+         WHERE( tauoc_wave < -100.0 ) tauoc_wave = 1.0
+         WHERE( tauoc_wave >  100.0 ) tauoc_wave = 1.0
       ENDIF