| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
431 |
NO PROCEDURE |
& fCori, fCoriG, fCoriCos |
|
./model/inc/GRID.h |
499 |
NO PROCEDURE |
_RS fCori (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/ggl90/ggl90_idemix.F |
117 |
GGL90_IDEMIX |
fxb = max( 1. _d -6, abs( fCori(i,j,bi,bj) )) |
|
./pkg/ggl90/ggl90_idemix.F |
141 |
GGL90_IDEMIX |
fxb = max( 1. _d -6, abs( fCori(i,j,bi,bj) )) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
103 |
GMREDI_CALC_EIGS |
fCori2(i,j) = fCori(i,j,bi,bj)*fCori(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
295 |
GMREDI_CALC_EIGS |
Rmid(i,j) = c1(i,j)/ABS(fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
168 |
GMREDI_CALC_TENSOR |
IF (fCori(i,j,bi,bj).NE.0.) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
169 |
GMREDI_CALC_TENSOR |
ldd97_LrhoC(i,j) = Cspd/ABS(fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
182 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i-1,j,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
199 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i,j-1,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
80 |
GMREDI_DIAGNOSTICS_FILL |
& 0.5*rhoConst*fCori(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
94 |
GMREDI_DIAGNOSTICS_FILL |
& -0.5*rhoConst*fCori(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_init_varia.F |
147 |
GMREDI_INIT_VARIA |
& (fCori(i+1,j,bi,bj)-fCori(i ,j,bi,bj))*recip_dxC(i+1,j,bi,bj) |
|
./pkg/gmredi/gmredi_init_varia.F |
148 |
GMREDI_INIT_VARIA |
& +(fCori(i ,j,bi,bj)-fCori(i-1,j,bi,bj))*recip_dxC(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_init_varia.F |
150 |
GMREDI_INIT_VARIA |
& (fCori(i,j+1,bi,bj)-fCori(i,j ,bi,bj))*recip_dyC(i,j+1,bi,bj) |
|
./pkg/gmredi/gmredi_init_varia.F |
151 |
GMREDI_INIT_VARIA |
& +(fCori(i,j ,bi,bj)-fCori(i,j-1,bi,bj))*recip_dyC(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
252 |
GMREDI_K3D |
dfdx(i,j) = ( fCori(i,j,bi,bj)-fCori(i-1,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
254 |
GMREDI_K3D |
dfdy(i,j) = ( fCori(i,j,bi,bj)-fCori(i,j-1,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
264 |
GMREDI_K3D |
fCoriU(i,j)= op5*( fCori(i,j,bi,bj)+fCori(i-1,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
273 |
GMREDI_K3D |
fCoriV(i,j)= op5*( fCori(i,j,bi,bj)+fCori(i,j-1,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
282 |
GMREDI_K3D |
fCoriU(i,j)= fCori(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
283 |
GMREDI_K3D |
coriU(i,j) = SIGN( MAX( ABS(fCori(i,j,bi,bj)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
284 |
GMREDI_K3D |
& fCori(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_k3d.F |
288 |
GMREDI_K3D |
fCoriV(i,j)= fCori(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
289 |
GMREDI_K3D |
coriV(i,j) = SIGN( MAX( ABS(fCori(i,j,bi,bj)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
290 |
GMREDI_K3D |
& fCori(i,j,bi,bj) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
98 |
SUBMESO_CALC_PSI |
fcorLoc(i,j) = SQRT( fCori(i,j,bi,bj)*fCori(i,j,bi,bj) |
|
./model/src/calc_eddy_stress.F |
69 |
CALC_EDDY_STRESS |
& +fCori(i ,j,bi,bj)) |
|
./model/src/calc_eddy_stress.F |
88 |
CALC_EDDY_STRESS |
& +fCori(i,j ,bi,bj)) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
158 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'fCori',fCori,myThid) |
|
./model/src/ini_cori.F |
113 |
INI_CORI |
fCori(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cori.F |
124 |
INI_CORI |
CALL READ_REC_XY_RS( 'fCoriC.bin', fCori, 1, 0, myThid ) |
|
./model/src/ini_cori.F |
181 |
INI_CORI |
CALL EXCH_XY_RS( fCori, myThid ) |
|
./model/src/ini_cori.F |
211 |
INI_CORI |
CALL MON_PRINTSTATS_RS(1,fCori,'fCori',myThid) |
|
./model/src/ini_cori.F |
64 |
INI_CORI |
fCori(i,j,bi,bj) = f0 |
|
./model/src/ini_cori.F |
80 |
INI_CORI |
fCori(i,j,bi,bj) = f0+beta*_yC(i,j,bi,bj)*facGrid |
|
./model/src/ini_cori.F |
94 |
INI_CORI |
fCori(i,j,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
367 |
SHELFICE_THERMODYNAMICS |
IF ( fCori(I,J,bi,bj) .NE. 0. _d 0 ) THEN |
|
./pkg/shelfice/shelfice_thermodynamics.F |
369 |
SHELFICE_THERMODYNAMICS |
& / ABS(fCori(I,J,bi,bj) * 5.0 _d 0 * shiKinVisc)) |
|
./verification/solid-body.cs-32x32x1/code/ini_psurf.F |
45 |
INI_PSURF |
etaN(I,J,bi,bj) = 0. +fac*(fCori(i,j,bi,bj)**2) |
|
./model/src/write_grid.F |
200 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'fCori',fCori,myThid) |
|
./pkg/bling/bling_light.F |
128 |
BLING_LIGHT |
& lat = asin( fCori(1,j,1,bj)/(2. _d 0*omega) ) |
|
./pkg/ctrl/ctrl_map_ini.F |
364 |
CTRL_MAP_INI |
& + fCori(i,j,bi,bj) |
|
./pkg/dic/insol.F |
72 |
INSOL |
& lat = asin( fCori(1,j,1,bj)/(2. _d 0*omega) ) |