Changeset 15199

Timestamp:

2021-08-19T09:57:52+02:00 (3 years ago)

Author:

amoulin

Message:

read wave number field if ln_zdfswm activated - ticket #2685

File:

• NEMO/trunk/src/OCE/SBC/sbcwave.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/SBC/sbcwave.F90

@@ -516 +516 @@
             !
             ! 3. Wave number (only needed for Qiao parametrisation, ln_zdfswm=T)
-            IF( ln_zdfswm .AND. .NOT. cpl_wnum ) THEN
+            IF( .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 to allocate sf_wn structure' )