/[MITgcm]/MITgcm/model/src/calc_gs.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_gs.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.16 by cnh, Tue Nov 3 15:28:04 1998 UTC revision 1.17 by cnh, Fri Nov 6 22:44:44 1998 UTC
# Line 1  Line 1 
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(
# Line 265  C           are not used. Line 265  C           are not used.
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
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22