| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
159 |
GMREDI_CALC_TENSOR |
IF (fCori(i,j,bi,bj).NE.0.) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
160 |
GMREDI_CALC_TENSOR |
ldd97_LrhoC(i,j) = Cspd/ABS(fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
173 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i-1,j,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
190 |
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/mnc/mnc_cw_write_grid_info.F |
150 |
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) = |
|
./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 |
180 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'fCori',fCori,myThid) |
|
./pkg/ctrl/ctrl_map_ini.F |
362 |
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) ) |
|
./model/inc/GRID.h |
429 |
NO PROCEDURE |
& fCori, fCoriG, fCoriCos |
|
./model/inc/GRID.h |
497 |
NO PROCEDURE |
_RS fCori (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |