| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_quasihydrostatic.F |
67 |
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_cartesian_grid.F |
219 |
INI_CARTESIAN_GRID |
angleCosC(i,j,bi,bj) = 1. |
|
./model/src/ini_curvilinear_grid.F |
262 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'AngleCS',angleCosC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
363 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS(fName,fp,17,angleCosC,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 |
453 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS(angleCosC, 'Current AngleCS ', 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
88 |
INI_CURVILINEAR_GRID |
angleCosC(i,j,bi,bj)=1. |
|
./model/src/ini_cylinder_grid.F |
229 |
INI_CYLINDER_GRID |
angleCosC(i,j,bi,bj) = 1. |
|
./model/src/ini_grid.F |
138 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,angleCosC,'AngleCS',myThid) |
|
./model/src/ini_spherical_polar_grid.F |
324 |
INI_SPHERICAL_POLAR_GRID |
angleCosC(i,j,bi,bj) = 1. |
|
./model/src/rotate_spherical_polar_grid.F |
251 |
CALC_ANGLES |
angleCosC(I,J,bi,bj) = uC*uNorm |
|
./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 |
177 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'AngleCS',angleCosC,myThid) |
|
./model/src/write_grid.F |
93 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'AngleCS',' ',angleCosC,-1,myThid) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
114 |
DIAGNOSTICS_FILL_STATE |
tmpU(i,j) = angleCosC(i,j,bi,bj)*uBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
117 |
DIAGNOSTICS_FILL_STATE |
& +angleCosC(i,j,bi,bj)*vBarC |
|
./pkg/ecco/cost_scat.F |
139 |
COST_SCAT |
tmpU(i,j,bi,bj) = angleCosC(i,j,bi,bj)*uBarC |
|
./pkg/ecco/cost_scat.F |
142 |
COST_SCAT |
& +angleCosC(i,j,bi,bj)*vBarC |
|
./model/inc/GRID.h |
428 |
NO PROCEDURE |
& tanPhiAtU, tanPhiAtV, angleCosC, angleSinC, |
|
./model/inc/GRID.h |
495 |
NO PROCEDURE |
_RS angleCosC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |