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

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

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

revision 1.4 by jmc, Sun Jun 19 21:43:49 2005 UTC revision 1.5 by jmc, Sun Jun 19 23:26:25 2005 UTC
# Line 60  C---+----1----+----2----+----3----+----4 Line 60  C---+----1----+----2----+----3----+----4
60  #endif  #endif
61    
62        IF (groundAtK1) THEN        IF (groundAtK1) THEN
        km = 1  
       ELSE  
63         km = Nr         km = Nr
64          ELSE
65           km = 1
66        ENDIF        ENDIF
67    
68        DO bj=myByLo(myThid), myByHi(myThid)        DO bj=myByLo(myThid), myByHi(myThid)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22