/[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.45 by heimbach, Mon Mar 6 18:25:49 2006 UTC revision 1.46 by jmc, Tue Mar 7 15:28:02 2006 UTC
# Line 153  C---+----1----+----2----+----3----+----4 Line 153  C---+----1----+----2----+----3----+----4
153  #endif /* ALLOW_ADAMSBASHFORTH_3 */  #endif /* ALLOW_ADAMSBASHFORTH_3 */
154    
155  C--   External salinity forcing term(s) inside Adams-Bashforth:  C--   External salinity forcing term(s) inside Adams-Bashforth:
156        IF ( saltForcing .AND. forcing_In_AB )        IF ( saltForcing .AND. tracForcingOutAB.NE.1 )
157       & CALL EXTERNAL_FORCING_S(       & CALL EXTERNAL_FORCING_S(
158       I     iMin,iMax,jMin,jMax,bi,bj,k,       I     iMin,iMax,jMin,jMax,bi,bj,k,
159       I     myTime,myThid)       I     myTime,myThid)
# Line 173  C--   External salinity forcing term(s) Line 173  C--   External salinity forcing term(s)
173        ENDIF        ENDIF
174    
175  C--   External salinity forcing term(s) outside Adams-Bashforth:  C--   External salinity forcing term(s) outside Adams-Bashforth:
176        IF ( saltForcing .AND. .NOT.forcing_In_AB )        IF ( saltForcing .AND. tracForcingOutAB.EQ.1 )
177       & CALL EXTERNAL_FORCING_S(       & CALL EXTERNAL_FORCING_S(
178       I     iMin,iMax,jMin,jMax,bi,bj,k,       I     iMin,iMax,jMin,jMax,bi,bj,k,
179       I     myTime,myThid)       I     myTime,myThid)
Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46
  ViewVC Help
Powered by ViewVC 1.1.22