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

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

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

revision 1.13 by heimbach, Fri Feb 15 21:25:09 2002 UTC revision 1.14 by adcroft, Tue Nov 5 19:58:21 2002 UTC
# Line 48  C      o Constant F case Line 48  C      o Constant F case
48             DO I=1-Olx,sNx+Olx             DO I=1-Olx,sNx+Olx
49              fCori(i,j,bi,bj)=f0              fCori(i,j,bi,bj)=f0
50              fCoriG(i,j,bi,bj)=f0              fCoriG(i,j,bi,bj)=f0
51                fCoriCos(i,j,bi,bj)=0.
52             ENDDO             ENDDO
53            ENDDO            ENDDO
54           ENDDO           ENDDO
# Line 64  C      o Beta plane case Line 65  C      o Beta plane case
65             DO I=1-Olx,sNx+Olx             DO I=1-Olx,sNx+Olx
66              fCori(i,j,bi,bj)=f0+beta*_yC(i,j,bi,bj)*facGrid              fCori(i,j,bi,bj)=f0+beta*_yC(i,j,bi,bj)*facGrid
67              fCoriG(i,j,bi,bj)=f0+beta*yG(i,j,bi,bj)*facGrid              fCoriG(i,j,bi,bj)=f0+beta*yG(i,j,bi,bj)*facGrid
68                fCoriCos(i,j,bi,bj)=0.
69             ENDDO             ENDDO
70            ENDDO            ENDDO
71           ENDDO           ENDDO
# Line 81  C        Note in this case we assume yC Line 83  C        Note in this case we assume yC
83       &       2. _d 0*omega*sin(_yC(i,j,bi,bj)*deg2rad)       &       2. _d 0*omega*sin(_yC(i,j,bi,bj)*deg2rad)
84              fCoriG(i,j,bi,bj)=              fCoriG(i,j,bi,bj)=
85       &       2. _d 0*omega*sin(yG(i,j,bi,bj)*deg2rad)       &       2. _d 0*omega*sin(yG(i,j,bi,bj)*deg2rad)
86                fCoriCos(i,j,bi,bj)=
87         &       2. _d 0*omega*cos(_yC(i,j,bi,bj)*deg2rad)
88             ENDDO             ENDDO
89            ENDDO            ENDDO
90           ENDDO           ENDDO
# Line 95  C      o Special custom form Line 99  C      o Special custom form
99             DO I=1-Olx,sNx+Olx             DO I=1-Olx,sNx+Olx
100              fCori(i,j,bi,bj)=0.              fCori(i,j,bi,bj)=0.
101              fCoriG(i,j,bi,bj)=0.              fCoriG(i,j,bi,bj)=0.
102                fCoriCos(i,j,bi,bj)=0.
103             ENDDO             ENDDO
104            ENDDO            ENDDO
105           ENDDO           ENDDO
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22