/[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.12 by cnh, Wed Sep 26 18:09:15 2001 UTC revision 1.12.6.1 by heimbach, Fri Mar 7 23:10:21 2003 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
# Line 104  C      o Special custom form Line 109  C      o Special custom form
109  C  C
110  c     _EXCH_XY_R4(fCori,myThid)  c     _EXCH_XY_R4(fCori,myThid)
111  c     CALL EXCH_Z_XY_RS(fCoriG,myThid)  c     CALL EXCH_Z_XY_RS(fCoriG,myThid)
112    c     _EXCH_XY_R4(fCoriCos,myThid)
113    
114    #ifndef EXCLUDE_MONITOR
115        CALL MON_PRINTSTATS_RS(1,fCori,'fCori',myThid)        CALL MON_PRINTSTATS_RS(1,fCori,'fCori',myThid)
116        CALL MON_PRINTSTATS_RS(1,fCoriG,'fCoriG',myThid)        CALL MON_PRINTSTATS_RS(1,fCoriG,'fCoriG',myThid)
117          CALL MON_PRINTSTATS_RS(1,fCoriCos,'fCoriCos',myThid)
118    #endif
119    
120        RETURN        RETURN
121        END        END
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.12.6.1
  ViewVC Help
Powered by ViewVC 1.1.22