Changeset 14398 for NEMO/trunk/src/OCE/SBC/sbcwave.F90

Timestamp:

2021-02-04T18:57:14+01:00 (3 years ago)

Author:

smasson

Message:

trunk: harmless bugfix in initialization of fldread structure for vectors, #2618

File:

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

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

@@ -503 +503 @@
                !
                CALL fld_fill( sf_sd, slf_i, cn_dir, 'sbc_wave_init', 'Wave module ', 'namsbc_wave' )
+               sf_sd(jp_usd)%zsgn = -1._wp   ;  sf_sd(jp_vsd)%zsgn = -1._wp   ! vector field at T point: overwrite default definition of zsgn
             ENDIF
             !