| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
430 |
NO PROCEDURE |
& angleCosC, angleSinC, u2zonDir, v2zonDir, |
|
./model/inc/GRID.h |
496 |
NO PROCEDURE |
_RS angleSinC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_set_uv.F |
322 |
EXF_SET_UV |
& +angleSinC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
324 |
EXF_SET_UV |
& -angleSinC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
483 |
EXF_SET_UV |
& +angleSinC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
485 |
EXF_SET_UV |
& -angleSinC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
572 |
EXF_SET_UV |
& +angleSinC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
574 |
EXF_SET_UV |
& -angleSinC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_init_varia.F |
146 |
GMREDI_INIT_VARIA |
gradf(i,j,bi,bj) = .5 _d 0*angleSinC(i,j,bi,bj)*( |
|
./pkg/gmredi/gmredi_k3d.F |
392 |
GMREDI_K3D |
& -angleSinC(i,j,bi,bj)*tmpV(i,j) |
|
./model/src/calc_grid_angles.F |
86 |
CALC_GRID_ANGLES |
angleSinC(i,j,bi,bj) = -vC*uNorm |
|
./pkg/mom_common/mom_quasihydrostatic.F |
90 |
MOM_QUASIHYDROSTATIC |
& -angleSinC(i,j,bi,bj)*0.5 _d 0 * |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
57 |
MOM_V_CORIOLIS_NH |
& -0.5*( fCoriCos( i ,j,bi,bj)*angleSinC(i, j ,bi,bj) |
|
./pkg/mom_common/mom_v_coriolis_nh.F |
60 |
MOM_V_CORIOLIS_NH |
& + fCoriCos(i,j-1,bi,bj)*angleSinC(i,j-1,bi,bj) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
61 |
MOM_W_CORIOLIS_NH |
& -angleSinC(i,j,bi,bj)*( |
|
./model/src/ini_curvilinear_grid.F |
242 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'AngleSN',angleSinC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
345 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS(fName,fp,18,angleSinC,bi,bj,myThid) |
|
./model/src/ini_curvilinear_grid.F |
417 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_AGRID_3D_RS(angleSinC,angleCosC,.TRUE., 1, myThid) |
|
./model/src/ini_curvilinear_grid.F |
444 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS(angleSinC, 'Current AngleSN ', 0, myThid ) |
|
./model/src/ini_grid.F |
104 |
INI_GRID |
angleSinC(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
229 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,angleSinC,'AngleSN',myThid) |
|
./model/src/rotate_uv2en.F |
127 |
ROTATE_UV2EN_RL |
& -angleSinC(i,j,bi,bj)*tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
129 |
ROTATE_UV2EN_RL |
& angleSinC(i,j,bi,bj)*tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
142 |
ROTATE_UV2EN_RL |
& +angleSinC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
144 |
ROTATE_UV2EN_RL |
& -angleSinC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
308 |
ROTATE_UV2EN_RS |
& -angleSinC(i,j,bi,bj)*tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
310 |
ROTATE_UV2EN_RS |
& angleSinC(i,j,bi,bj)*tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
323 |
ROTATE_UV2EN_RS |
& +angleSinC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
325 |
ROTATE_UV2EN_RS |
& -angleSinC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/write_grid.F |
198 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'AngleSN',angleSinC,myThid) |
|
./model/src/write_grid.F |
98 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'AngleSN',' ',angleSinC,-1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
121 |
DIAGNOSTICS_FILL_STATE |
& -angleSinC(i,j,bi,bj)*vBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
122 |
DIAGNOSTICS_FILL_STATE |
tmpV(i,j) = angleSinC(i,j,bi,bj)*uBarC |
|
./pkg/ecco/cost_gencost_customize.F |
100 |
COST_GENCOST_CUSTOMIZE |
& -angleSinC(i,j,bi,bj)*vBarC |
|
./pkg/ecco/cost_gencost_customize.F |
101 |
COST_GENCOST_CUSTOMIZE |
mertau(i,j,bi,bj) = angleSinC(i,j,bi,bj)*uBarC |