| File |
Line number |
Procedure |
Code |
|
./model/src/ini_cori.F |
104 |
INI_CORI |
fCoriG(i,j,bi,bj)=0. |
|
./model/src/ini_cori.F |
112 |
INI_CORI |
CALL READ_REC_XY_RS( 'fCoriG.bin', fCoriG, 1, 0, myThid ) |
|
./model/src/ini_cori.F |
121 |
INI_CORI |
fCoriG(sNx+1,1,bi,bj) = fCoriG(1,1,bi,bj) |
|
./model/src/ini_cori.F |
123 |
INI_CORI |
fCoriG(sNx+1,1,bi,bj) = -fCoriG(1,1,bi,bj) |
|
./model/src/ini_cori.F |
126 |
INI_CORI |
fCoriG(1,sNy+1,bi,bj) = fCoriG(1,1,bi,bj) |
|
./model/src/ini_cori.F |
127 |
INI_CORI |
fCoriG(sNx+1,sNy+1,bi,bj) = fCoriG(sNx+1,1,bi,bj) |
|
./model/src/ini_cori.F |
129 |
INI_CORI |
fCoriG(1,sNy+1,bi,bj) = -fCoriG(1,1,bi,bj) |
|
./model/src/ini_cori.F |
130 |
INI_CORI |
fCoriG(sNx+1,sNy+1,bi,bj) = -fCoriG(sNx+1,1,bi,bj) |
|
./model/src/ini_cori.F |
137 |
INI_CORI |
CALL EXCH_Z_XY_RS(fCoriG,myThid) |
|
./model/src/ini_cori.F |
160 |
INI_CORI |
CALL MON_PRINTSTATS_RS(1,fCoriG,'fCoriG',myThid) |
|
./model/src/ini_cori.F |
50 |
INI_CORI |
fCoriG(i,j,bi,bj)=f0 |
|
./model/src/ini_cori.F |
67 |
INI_CORI |
fCoriG(i,j,bi,bj)=f0+beta*yG(i,j,bi,bj)*facGrid |
|
./model/src/ini_cori.F |
84 |
INI_CORI |
fCoriG(i,j,bi,bj)= |
|
./pkg/mom_common/mom_calc_absvort3.F |
47 |
MOM_CALC_ABSVORT3 |
& fCoriG(i,j,bi,bj)*useCoriolisFac |
|
./verification/advect_cs/code/ini_vel.F |
28 |
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 |
208 |
WRITE_GRID |
CALL MNC_CW_RL_W('D',bfname,0,0,'fCoriG',fCoriG,myThid) |
|
./model/inc/GRID.h |
393 |
NO PROCEDURE |
& fCori, fCoriG, fCoriCos |
|
./model/inc/GRID.h |
455 |
NO PROCEDURE |
_RS fCoriG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
155 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'fCoriG',fCoriG,myThid) |
|
./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 |
65 |
MOM_VI_CORIOLIS |
& +0.5*( fCoriG(i,j,bi,bj)+fCoriG(i,j+1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
83 |
MOM_VI_CORIOLIS |
& -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
97 |
MOM_VI_CORIOLIS |
& -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
289 |
MON_VORT3 |
tmpVal = tmpVal + fCoriG(i,j,bi,bj) |