/[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.7 by adcroft, Wed Jun 10 16:05:39 1998 UTC revision 1.8 by cnh, Mon Jun 15 05:13:55 1998 UTC
# Line 42  C     == GLobal variables == Line 42  C     == GLobal variables ==
42  #include "EEPARAMS.h"  #include "EEPARAMS.h"
43  #include "PARAMS.h"  #include "PARAMS.h"
44  #include "GRID.h"  #include "GRID.h"
45    #include "FFIELDS.h"
46    
47  C     == Routine arguments ==  C     == Routine arguments ==
48  C     fZon    - Work array for flux of temperature in the east-west  C     fZon    - Work array for flux of temperature in the east-west
# Line 252  C #define _rVolS(i,j,k,bi,bj) _rhFacC(i, Line 253  C #define _rVolS(i,j,k,bi,bj) _rhFacC(i,
253        ENDDO        ENDDO
254    
255  C--   External P-E forcing term(s)  C--   External P-E forcing term(s)
256    C     o Surface relaxation term
257          IF ( TOP_LAYER ) THEN
258           DO j=jMin,jMax
259            DO i=iMin,iMax
260             gS(i,j,k,bi,bj)=gS(i,j,k,bi,bj)
261         &   -lambdaSaltClimRelax*(salt(i,j,k,bi,bj)-saltClim(i,j,k,bi,bj))
262            ENDDO
263           ENDDO
264          ENDIF
265    
266    
267        RETURN        RETURN
268        END        END
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22