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

Timestamp:

2017-01-25T13:01:38+01:00 (7 years ago)

Author:

jcastill

Message:

Fix some bugs introduced due to particularities of the branch revision; make some small improvements

File:

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

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

@@ -347 +347 @@
          wsd(:,:,:) = 0._wp
          ! Wave number needed only if ln_zdfqiao=T
-         IF( .NOT. cpl_wnum ) THEN
+         IF( ln_zdfqiao .AND. .NOT.cpl_wnum ) THEN
             ALLOCATE( sf_wn(1), STAT=ierror )           !* allocate and fill sf_wave with sn_wnum
             IF( ierror > 0 )   CALL ctl_stop( 'STOP', 'sbc_wave_init: unable toallocate sf_wave structure' )