Changeset 14398 for NEMO/trunk/src/OCE/SBC/sbcblk.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/sbcblk.F90 (modified) (1 diff)

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

@@ -348 +348 @@
       !                                      !- fill the bulk structure with namelist informations
       CALL fld_fill( sf, slf_i, cn_dir, 'sbc_blk_init', 'surface boundary condition -- bulk formulae', 'namsbc_blk' )
+      sf(jp_wndi )%zsgn = -1._wp   ;   sf(jp_wndj )%zsgn = -1._wp   ! vector field at T point: overwrite default definition of zsgn
+      sf(jp_uoatm)%zsgn = -1._wp   ;   sf(jp_uoatm)%zsgn = -1._wp   ! vector field at T point: overwrite default definition of zsgn
+      sf(jp_hpgi )%zsgn = -1._wp   ;   sf(jp_hpgj )%zsgn = -1._wp   ! vector field at T point: overwrite default definition of zsgn
       !
       DO jfpr= 1, jpfld