/[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.4 by cnh, Sat Aug 22 17:51:08 1998 UTC revision 1.5 by cnh, Wed Oct 28 03:11:37 1998 UTC
# Line 68  C        Note in this case we assume yC Line 68  C        Note in this case we assume yC
68           DO K=1,Nr           DO K=1,Nr
69            DO J=1,sNy            DO J=1,sNy
70             DO I=1,sNx             DO I=1,sNx
71              fCori(i,j,bi,bj)=2. _d 0*omega*sin(_yC(i,j,bi,bj)*deg2rad)              fCori(i,j,bi,bj)=
72         &       2. _d 0*omega*sin(_yC(i,j,bi,bj)*deg2rad)
73             ENDDO             ENDDO
74            ENDDO            ENDDO
75           ENDDO           ENDDO
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22