| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
431 |
NO PROCEDURE |
& fCori, fCoriG, fCoriCos |
|
./model/inc/GRID.h |
501 |
NO PROCEDURE |
_RS fCoriCos (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/gmredi/gmredi_init_varia.F |
136 |
GMREDI_INIT_VARIA |
gradf(i,j,bi,bj) = recip_rSphere*fCoriCos(i,j,bi,bj) |
|
./pkg/mom_common/mom_quasihydrostatic.F |
87 |
MOM_QUASIHYDROSTATIC |
& fCoriCos(i,j,bi,bj)* |
|
./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_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 |
56 |
MOM_W_CORIOLIS_NH |
& -gravitySign*fCoriCos(i,j,bi,bj)* |
|
./model/src/ini_cori.F |
115 |
INI_CORI |
fCoriCos(i,j,bi,bj)=0. _d 0 |
|
./model/src/ini_cori.F |
125 |
INI_CORI |
CALL READ_REC_XY_RS( 'fCorCs.bin', fCoriCos,1, 0, myThid ) |
|
./model/src/ini_cori.F |
182 |
INI_CORI |
CALL EXCH_XY_RS( fCoriCos, myThid ) |
|
./model/src/ini_cori.F |
213 |
INI_CORI |
CALL MON_PRINTSTATS_RS(1,fCoriCos,'fCoriCos',myThid) |
|
./model/src/ini_cori.F |
66 |
INI_CORI |
fCoriCos(i,j,bi,bj)=fPrime |
|
./model/src/ini_cori.F |
82 |
INI_CORI |
fCoriCos(i,j,bi,bj)=fPrime |
|
./model/src/ini_cori.F |
98 |
INI_CORI |
fCoriCos(i,j,bi,bj)= |