| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_quasihydrostatic.F |
69 |
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_cartesian_grid.F |
220 |
INI_CARTESIAN_GRID |
angleSinC(i,j,bi,bj) = 0. |
|
./model/src/ini_curvilinear_grid.F |
263 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'AngleSN',angleSinC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
366 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS(fName,fp,18,angleSinC,bi,bj,myThid) |
|
./model/src/ini_curvilinear_grid.F |
416 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_AGRID_3D_RS(angleSinC,angleCosC,.TRUE., 1, myThid) |
|
./model/src/ini_curvilinear_grid.F |
454 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS(angleSinC, 'Current AngleSN ', 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
89 |
INI_CURVILINEAR_GRID |
angleSinC(i,j,bi,bj)=0. |
|
./model/src/ini_cylinder_grid.F |
230 |
INI_CYLINDER_GRID |
angleSinC(i,j,bi,bj) = 0. |
|
./model/src/ini_grid.F |
139 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,angleSinC,'AngleSN',myThid) |
|
./model/src/ini_spherical_polar_grid.F |
325 |
INI_SPHERICAL_POLAR_GRID |
angleSinC(i,j,bi,bj) = 0. |
|
./model/src/rotate_spherical_polar_grid.F |
252 |
CALC_ANGLES |
angleSinC(I,J,bi,bj) = -vC*uNorm |
|
./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 |
178 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'AngleSN',angleSinC,myThid) |
|
./model/src/write_grid.F |
94 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'AngleSN',' ',angleSinC,-1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
115 |
DIAGNOSTICS_FILL_STATE |
& -angleSinC(i,j,bi,bj)*vBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
116 |
DIAGNOSTICS_FILL_STATE |
tmpV(i,j) = angleSinC(i,j,bi,bj)*uBarC |
|
./pkg/ecco/cost_scat.F |
140 |
COST_SCAT |
& -angleSinC(i,j,bi,bj)*vBarC |
|
./pkg/ecco/cost_scat.F |
141 |
COST_SCAT |
tmpV(i,j,bi,bj) = angleSinC(i,j,bi,bj)*uBarC |
|
./model/inc/GRID.h |
428 |
NO PROCEDURE |
& tanPhiAtU, tanPhiAtV, angleCosC, angleSinC, |
|
./model/inc/GRID.h |
496 |
NO PROCEDURE |
_RS angleSinC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |