| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_fill_state.F |
105 |
DIAGNOSTICS_FILL_STATE |
& ( angleCosC(i,j,bi,bj)*uBarC |
|
./pkg/diagnostics/diagnostics_fill_state.F |
108 |
DIAGNOSTICS_FILL_STATE |
& +angleCosC(i,j,bi,bj)*vBarC ) |
|
./model/src/write_grid.F |
154 |
WRITE_GRID |
CALL MNC_CW_RL_W('D',bfname,0,0,'AngleCS',angleCosC,myThid) |
|
./model/src/write_grid.F |
90 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'AngleCS',' ',angleCosC,-1,myThid) |
|
./model/src/ini_grid.F |
120 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,angleCosC,'AngleCS',myThid) |
|
./model/src/ini_spherical_polar_grid.F |
319 |
INI_SPHERICAL_POLAR_GRID |
angleCosC(I,J,bi,bj) = 1. |
|
./model/src/ini_cylinder_grid.F |
226 |
INI_CYLINDER_GRID |
angleCosC(I,J,bi,bj) = 1. |
|
./model/src/ini_curvilinear_grid.F |
146 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'AngleCS',angleCosC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
165 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_AGRID_XY_RS(angleSinC,angleCosC,.TRUE.,myThid) |
|
./model/src/ini_curvilinear_grid.F |
323 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_AGRID_XY_RS(angleSinC,angleCosC,.TRUE.,myThid) |
|
./model/src/ini_curvilinear_grid.F |
423 |
INI_CURVILINEAR_GRID |
CALL READSYMTILE_RS(fName,17,angleCosC,bi,bj,buf,myThid) |
|
./model/src/ini_curvilinear_grid.F |
459 |
INI_CURVILINEAR_GRID |
CALL EXCH_UV_AGRID_XY_RS(angleSinC,angleCosC,.TRUE.,myThid) |
|
./model/src/ini_curvilinear_grid.F |
521 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRL(angleCosC, 'Current AngleCS ' , |
|
./model/src/ini_curvilinear_grid.F |
99 |
INI_CURVILINEAR_GRID |
angleCosC(i,j,bi,bj)=1. |
|
./model/src/ini_cartesian_grid.F |
201 |
INI_CARTESIAN_GRID |
angleCosC(I,J,bi,bj) = 1. |
|
./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 |
59 |
MOM_U_CORIOLIS_NH |
& + fCoriCos(i-1,j,bi,bj)*angleCosC(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
64 |
MOM_QUASIHYDROSTATIC |
& ( angleCosC(i,j,bi,bj)*0.5 _d 0 * |
|
./pkg/mom_common/mom_w_coriolis_nh.F |
57 |
MOM_W_CORIOLIS_NH |
& ( angleCosC(i,j,bi,bj)*( |
|
./model/inc/GRID.h |
395 |
NO PROCEDURE |
& tanPhiAtU, tanPhiAtV, angleCosC, angleSinC, |
|
./model/inc/GRID.h |
452 |
NO PROCEDURE |
_RS angleCosC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |