New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15199 – NEMO

Changeset 15199


Ignore:
Timestamp:
2021-08-19T09:57:52+02:00 (16 months ago)
Author:
amoulin
Message:

read wave number field if ln_zdfswm activated - ticket #2685

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/SBC/sbcwave.F90

    r14961 r15199  
    516516            ! 
    517517            ! 3. Wave number (only needed for Qiao parametrisation, ln_zdfswm=T) 
    518             IF( ln_zdfswm .AND. .NOT. cpl_wnum ) THEN 
     518            IF( .NOT. cpl_wnum ) THEN 
    519519               ALLOCATE( sf_wn(1), STAT=ierror )           !* allocate and fill sf_wave with sn_wnum 
    520520               IF( ierror > 0 )   CALL ctl_stop( 'STOP', 'sbc_wave_init: unable to allocate sf_wn structure' ) 
Note: See TracChangeset for help on using the changeset viewer.