In trunk/ROMS/Nonlinear,
Code: Select all
# if defined NUDGING_SST || defined NUDGING_T
!
! Assimilate tracer observations via nudging.
!
IF (update_T(itrc,ng)) THEN
DO k=1,N(ng)
DO j=JstrR,JendR
DO i=IstrR,IendR
cff=MIN(1.0_r8,MAX(0.0_r8,EobsT(i,j,k,itrc)))
cff=dt(ng)*Tnudass(itrc,ng)*(1.0_r8-cff)
t(i,j,k,nnew,itrc)=t(i,j,k,nnew,itrc)+ &
& cff*(Tobs(i,j,k,itrc)- &
& t(i,j,k,nnew,itrc))t(i,j,k,nnew,itrc)=t(i,j,k,nnew,itrc)+ &
& cff*(Tobs(i,j,k,itrc)- &
& t(i,j,k,nnew,itrc))
END DO
END DO
END DO
END IF
# endif
(2) If only NUDGING_SST is defined, the Tobs will be zero below the surface layer,then the formula
Code: Select all
t(i,j,k,nnew,itrc)=t(i,j,k,nnew,itrc)+ &
& cff*(Tobs(i,j,k,itrc)- &
& t(i,j,k,nnew,itrc))
Code: Select all
t(i,j,k,nnew,itrc)=t(i,j,k,nnew,itrc)+ &
& cff*(0 - t(i,j,k,nnew,itrc))