1 |
C $Header$ |
C $Header$ |
2 |
|
|
3 |
#include "CPP_EEOPTIONS.h" |
#include "CPP_OPTIONS.h" |
4 |
|
|
5 |
CStartOfInterFace |
CStartOfInterFace |
6 |
SUBROUTINE CALC_GS( |
SUBROUTINE CALC_GS( |
265 |
C-- External forcing term(s) |
C-- External forcing term(s) |
266 |
CALL EXTERNAL_FORCING_S( |
CALL EXTERNAL_FORCING_S( |
267 |
I iMin,iMax,jMin,jMax,bi,bj,k, |
I iMin,iMax,jMin,jMax,bi,bj,k, |
268 |
|
I maskC, |
269 |
I myCurrentTime,myThid) |
I myCurrentTime,myThid) |
|
C o Surface relaxation term |
|
|
C IF ( TOP_LAYER ) THEN |
|
|
C DO j=jMin,jMax |
|
|
C DO i=iMin,iMax |
|
|
C gS(i,j,k,bi,bj)=gS(i,j,k,bi,bj) |
|
|
C & +maskC(i,j)*( |
|
|
C & -lambdaSaltClimRelax*(salt(i,j,k,bi,bj)-SSS(i,j,bi,bj)) |
|
|
C & +EmPmR(i,j,bi,bj) ) |
|
|
C ENDDO |
|
|
C ENDDO |
|
|
C ENDIF |
|
270 |
|
|
271 |
#ifdef ALLOW_LATITUDE_CIRCLE_FFT_FILTER |
#ifdef INCLUDE_LAT_CIRC_FFT_FILTER_CODE |
272 |
C-- |
C-- |
273 |
CALL FILTER_LATCIRCS_FFT_APPLY( gS, 1, sNy, k, k, bi, bj, 1, myThid) |
CALL FILTER_LATCIRCS_FFT_APPLY( gS, 1, sNy, k, k, bi, bj, 1, myThid) |
274 |
#endif |
#endif |