/[MITgcm]/MITgcm/pkg/ebm/ebm_ini_vars.F
ViewVC logotype

Diff of /MITgcm/pkg/ebm/ebm_ini_vars.F

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

revision 1.1 by heimbach, Fri May 14 21:10:34 2004 UTC revision 1.2 by heimbach, Wed May 19 20:38:53 2004 UTC
# Line 58  C--   initially all forcing fields are z Line 58  C--   initially all forcing fields are z
58    
59        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
60         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
61          iMin =   1   - 2          iMin =   1-olx
62          iMax = sNx+1 + 2          iMax = sNx+olx
63          jMin =   1   - 2          jMin =   1-oly
64          jMax = sNy+1 + 2          jMax = sNy+oly
65    
66         CALL EBM_FORCING_SURF(         CALL EBM_FORCING_SURF(
67       I       bi, bj, iMin, iMax, jMin, jMax,       I       bi, bj, iMin, iMax, jMin, jMax,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22