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

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

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

revision 1.3 by adcroft, Tue Dec 15 00:20:34 1998 UTC revision 1.4 by adcroft, Wed May 5 14:52:49 1999 UTC
# Line 30  C     jMin Line 30  C     jMin
30  C     jMax  C     jMax
31  C     kLev  C     kLev
32        INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj        INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
33        INTEGER myCurrentTime, myThid        _RL myCurrentTime
34          INTEGER myThid
35  CEndOfInterface  CEndOfInterface
36    
37  C     == Local variables ==  C     == Local variables ==
# Line 81  C     jMin Line 82  C     jMin
82  C     jMax  C     jMax
83  C     kLev  C     kLev
84        INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj        INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
85        INTEGER myCurrentTime, myThid        _RL myCurrentTime
86          INTEGER myThid
87  CEndOfInterface  CEndOfInterface
88  C     == Local variables ==  C     == Local variables ==
89  C     Loop counters  C     Loop counters
# Line 132  C     jMax Line 134  C     jMax
134  C     kLev  C     kLev
135        _RS maskC (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RS maskC (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
136        INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj        INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
137        INTEGER myCurrentTime, myThid        _RL myCurrentTime
138          INTEGER myThid
139  CEndOfInterface  CEndOfInterface
140    
141  C     == Local variables ==  C     == Local variables ==
# Line 184  C     jMax Line 187  C     jMax
187  C     kLev  C     kLev
188        _RS maskC (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RS maskC (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
189        INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj        INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
190        INTEGER myCurrentTime, myThid        _RL myCurrentTime
191          INTEGER myThid
192  CEndOfInterface  CEndOfInterface
193    
194  C     == Local variables ==  C     == Local variables ==
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22