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

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

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

revision 1.49 by heimbach, Mon Mar 6 18:25:49 2006 UTC revision 1.50 by jmc, Tue Mar 7 15:28:02 2006 UTC
# Line 152  C---+----1----+----2----+----3----+----4 Line 152  C---+----1----+----2----+----3----+----4
152  #endif  #endif
153    
154  C--   External thermal forcing term(s) inside Adams-Bashforth:  C--   External thermal forcing term(s) inside Adams-Bashforth:
155        IF ( tempForcing .AND. forcing_In_AB )        IF ( tempForcing .AND. tracForcingOutAB.NE.1 )
156       & CALL EXTERNAL_FORCING_T(       & CALL EXTERNAL_FORCING_T(
157       I     iMin,iMax,jMin,jMax,bi,bj,k,       I     iMin,iMax,jMin,jMax,bi,bj,k,
158       I     myTime,myThid)       I     myTime,myThid)
# Line 172  C--   External thermal forcing term(s) i Line 172  C--   External thermal forcing term(s) i
172        ENDIF        ENDIF
173    
174  C--   External thermal forcing term(s) outside Adams-Bashforth:  C--   External thermal forcing term(s) outside Adams-Bashforth:
175        IF ( tempForcing .AND. .NOT.forcing_In_AB )        IF ( tempForcing .AND. tracForcingOutAB.EQ.1 )
176       & CALL EXTERNAL_FORCING_T(       & CALL EXTERNAL_FORCING_T(
177       I     iMin,iMax,jMin,jMax,bi,bj,k,       I     iMin,iMax,jMin,jMax,bi,bj,k,
178       I     myTime,myThid)       I     myTime,myThid)
Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50
  ViewVC Help
Powered by ViewVC 1.1.22