| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
431 |
NO PROCEDURE |
& fCori, fCoriG, fCoriCos |
|
./model/inc/GRID.h |
500 |
NO PROCEDURE |
_RS fCoriG (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
159 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'fCoriG',fCoriG,myThid) |
|
./pkg/mom_common/mom_calc_absvort3.F |
47 |
MOM_CALC_ABSVORT3 |
& fCoriG(i,j,bi,bj)*useCoriolisFac |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
51 |
MOM_VI_CORIOLIS |
& +0.5*( fCoriG(i,j,bi,bj)+fCoriG(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
66 |
MOM_VI_CORIOLIS |
& +0.5*( fCoriG(i,j,bi,bj)+fCoriG(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
84 |
MOM_VI_CORIOLIS |
& -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
99 |
MOM_VI_CORIOLIS |
& -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
298 |
MON_VORT3 |
tmpVal = tmpVal + fCoriG(i,j,bi,bj) |
|
./model/src/ini_cori.F |
114 |
INI_CORI |
fCoriG(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cori.F |
127 |
INI_CORI |
CALL READ_REC_XY_RS('fCoriG.bin', fCoriG, 1, 0, myThid ) |
|
./model/src/ini_cori.F |
130 |
INI_CORI |
CALL READ_REC_XY_RS('fCoriG.bin', fCoriG, 1, 0, myThid ) |
|
./model/src/ini_cori.F |
137 |
INI_CORI |
fCoriG(sNx+1,1,bi,bj) = fCoriG(1,1,bi,bj) |
|
./model/src/ini_cori.F |
139 |
INI_CORI |
fCoriG(sNx+1,1,bi,bj) = -fCoriG(1,1,bi,bj) |
|
./model/src/ini_cori.F |
142 |
INI_CORI |
fCoriG(1,sNy+1,bi,bj) = fCoriG(1,1,bi,bj) |
|
./model/src/ini_cori.F |
143 |
INI_CORI |
fCoriG(sNx+1,sNy+1,bi,bj) = fCoriG(sNx+1,1,bi,bj) |
|
./model/src/ini_cori.F |
145 |
INI_CORI |
fCoriG(1,sNy+1,bi,bj) = -fCoriG(1,1,bi,bj) |
|
./model/src/ini_cori.F |
146 |
INI_CORI |
fCoriG(sNx+1,sNy+1,bi,bj) = -fCoriG(sNx+1,1,bi,bj) |
|
./model/src/ini_cori.F |
168 |
INI_CORI |
& fCoriG, bi, bj, myThid ) |
|
./model/src/ini_cori.F |
183 |
INI_CORI |
CALL EXCH_Z_3D_RS( fCoriG, 1, myThid ) |
|
./model/src/ini_cori.F |
212 |
INI_CORI |
CALL MON_PRINTSTATS_RS(1,fCoriG,'fCoriG',myThid) |
|
./model/src/ini_cori.F |
65 |
INI_CORI |
fCoriG(i,j,bi,bj) = f0 |
|
./model/src/ini_cori.F |
81 |
INI_CORI |
fCoriG(i,j,bi,bj) = f0+beta* yG(i,j,bi,bj)*facGrid |
|
./model/src/ini_cori.F |
96 |
INI_CORI |
fCoriG(i,j,bi,bj) = |
|
./verification/advect_cs/code/ini_vel.F |
41 |
INI_VEL |
psi(i,j,bi,bj)=fac*fCoriG(i,j,bi,bj) |
|
./verification/solid-body.cs-32x32x1/code/ini_vel.F |
38 |
INI_VEL |
psi(i,j,bi,bj)=fac*fCoriG(i,j,bi,bj) |
|
./model/src/write_grid.F |
201 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'fCoriG',fCoriG,myThid) |