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

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

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

revision 1.32 by jmc, Thu Mar 8 20:49:08 2001 UTC revision 1.33 by jmc, Fri Mar 9 20:42:56 2001 UTC
# Line 65  C-- Line 65  C--
65           ENDDO           ENDDO
66          ENDDO          ENDDO
67        ELSE        ELSE
68    C-  gBaro = gravity (except for External mode test with reduced gravity)
69          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
70           DO bi=myBxLo(myThid),myBxHi(myThid)           DO bi=myBxLo(myThid),myBxHi(myThid)
71            DO J=1-Oly,sNy+Oly            DO J=1-Oly,sNy+Oly
72             DO I=1-Olx,sNx+Olx             DO I=1-Olx,sNx+Olx
73               Bo_surf(I,J,bi,bj) = gravity               Bo_surf(I,J,bi,bj) = gBaro
74               recip_Bo(I,J,bi,bj) = recip_Gravity               recip_Bo(I,J,bi,bj) = 1. _d 0 / gBaro
75             ENDDO             ENDDO
76            ENDDO            ENDDO
77           ENDDO           ENDDO
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22