diff --git a/src/OCE/ASM/asminc.F90 b/src/OCE/ASM/asminc.F90 index c0ac1c1c75791abd7f3fb610bb289b2defdc9ba9..4e0892f2dc6f946ec26cc9089f6269d2838a96fa 100644 --- a/src/OCE/ASM/asminc.F90 +++ b/src/OCE/ASM/asminc.F90 @@ -372,8 +372,8 @@ CONTAINS ENDIF IF ( ln_dyninc ) THEN - CALL iom_get( inum, jpdom_auto, 'bckinu', u_bkginc, 1 ) - CALL iom_get( inum, jpdom_auto, 'bckinv', v_bkginc, 1 ) + CALL iom_get( inum, jpdom_auto, 'bckinu', u_bkginc, 1, cd_type = 'U', psgn = -1._wp ) + CALL iom_get( inum, jpdom_auto, 'bckinv', v_bkginc, 1, cd_type = 'V', psgn = -1._wp ) ! Apply the masks u_bkginc(:,:,:) = u_bkginc(:,:,:) * umask(:,:,:) v_bkginc(:,:,:) = v_bkginc(:,:,:) * vmask(:,:,:) @@ -474,8 +474,8 @@ CONTAINS ENDIF ! IF ( ln_dyninc ) THEN - CALL iom_get( inum, jpdom_auto, 'un', u_bkg, cd_type = 'U', psgn = 1._wp ) - CALL iom_get( inum, jpdom_auto, 'vn', v_bkg, cd_type = 'V', psgn = 1._wp ) + CALL iom_get( inum, jpdom_auto, 'un', u_bkg, cd_type = 'U', psgn = -1._wp ) + CALL iom_get( inum, jpdom_auto, 'vn', v_bkg, cd_type = 'V', psgn = -1._wp ) u_bkg(:,:,:) = u_bkg(:,:,:) * umask(:,:,:) v_bkg(:,:,:) = v_bkg(:,:,:) * vmask(:,:,:) ENDIF