I found 'gamma2' is Slipperiness variable, either 1.0 (free slip) or -1.0 (no slip). What's the mean ?
In the 'u2dbc_im'
Code: Select all
!
! Southern edge, closed boundary condition: free slip (gamma2=1) or
! no slip (gamma2=-1).
!
# ifdef EW_PERIODIC
# define I_RANGE IstrU,Iend
# else
# define I_RANGE Istr,IendR
# endif
DO i=I_RANGE
ubar(i,Jstr-1,kout)=gamma2(ng)*ubar(i,Jstr,kout)
# ifdef MASKING
ubar(i,Jstr-1,kout)=ubar(i,Jstr-1,kout)* &
& GRID(ng)%umask(i,Jstr-1)
# endif
END DO