| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
430 |
NO PROCEDURE |
& angleCosC, angleSinC, u2zonDir, v2zonDir, |
|
./model/inc/GRID.h |
495 |
NO PROCEDURE |
_RS angleCosC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_set_uv.F |
321 |
EXF_SET_UV |
& angleCosC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
325 |
EXF_SET_UV |
& +angleCosC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
482 |
EXF_SET_UV |
& angleCosC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
486 |
EXF_SET_UV |
& +angleCosC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
571 |
EXF_SET_UV |
& angleCosC(i,j,bi,bj)*tmp_u(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
575 |
EXF_SET_UV |
& +angleCosC(i,j,bi,bj)*tmp_v(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_init_varia.F |
149 |
GMREDI_INIT_VARIA |
& + .5 _d 0*angleCosC(i,j,bi,bj)*( |
|
./pkg/gmredi/gmredi_k3d.F |
391 |
GMREDI_K3D |
& angleCosC(i,j,bi,bj)*tmpU(i,j) |
|
./model/src/calc_grid_angles.F |
85 |
CALC_GRID_ANGLES |
angleCosC(i,j,bi,bj) = uC*uNorm |
|
./pkg/mom_common/mom_quasihydrostatic.F |
88 |
MOM_QUASIHYDROSTATIC |
& ( angleCosC(i,j,bi,bj)*0.5 _d 0 * |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
57 |
MOM_U_CORIOLIS_NH |
& 0.5*( fCoriCos( i ,j,bi,bj)*angleCosC( i ,j,bi,bj) |
|
./pkg/mom_common/mom_u_coriolis_nh.F |
60 |
MOM_U_CORIOLIS_NH |
& + fCoriCos(i-1,j,bi,bj)*angleCosC(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
57 |
MOM_W_CORIOLIS_NH |
& ( angleCosC(i,j,bi,bj)*( |
|
./model/src/ini_curvilinear_grid.F |
241 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'AngleCS',angleCosC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
342 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS(fName,fp,17,angleCosC,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 |
443 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS(angleCosC, 'Current AngleCS ', 0, myThid ) |
|
./model/src/ini_grid.F |
103 |
INI_GRID |
angleCosC(i,j,bi,bj) = 1. |
|
./model/src/ini_grid.F |
228 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,angleCosC,'AngleCS',myThid) |
|
./model/src/rotate_uv2en.F |
126 |
ROTATE_UV2EN_RL |
& angleCosC(i,j,bi,bj)*tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
130 |
ROTATE_UV2EN_RL |
& +angleCosC(i,j,bi,bj)*tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
141 |
ROTATE_UV2EN_RL |
& angleCosC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
145 |
ROTATE_UV2EN_RL |
& +angleCosC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
307 |
ROTATE_UV2EN_RS |
& angleCosC(i,j,bi,bj)*tmpU(i,j) |
|
./model/src/rotate_uv2en.F |
311 |
ROTATE_UV2EN_RS |
& +angleCosC(i,j,bi,bj)*tmpV(i,j) |
|
./model/src/rotate_uv2en.F |
322 |
ROTATE_UV2EN_RS |
& angleCosC(i,j,bi,bj)*uFldE(i,j,k,bi,bj) |
|
./model/src/rotate_uv2en.F |
326 |
ROTATE_UV2EN_RS |
& +angleCosC(i,j,bi,bj)*vFldN(i,j,k,bi,bj) |
|
./model/src/write_grid.F |
197 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'AngleCS',angleCosC,myThid) |
|
./model/src/write_grid.F |
97 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'AngleCS',' ',angleCosC,-1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
120 |
DIAGNOSTICS_FILL_STATE |
tmpU(i,j) = angleCosC(i,j,bi,bj)*uBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
123 |
DIAGNOSTICS_FILL_STATE |
& +angleCosC(i,j,bi,bj)*vBarC |
|
./pkg/ecco/cost_gencost_customize.F |
102 |
COST_GENCOST_CUSTOMIZE |
& +angleCosC(i,j,bi,bj)*vBarC |
|
./pkg/ecco/cost_gencost_customize.F |
99 |
COST_GENCOST_CUSTOMIZE |
zontau(i,j,bi,bj) = angleCosC(i,j,bi,bj)*uBarC |