| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
114 |
GMREDI_CALC_TENSOR |
IF (fCori(i,j,bi,bj).NE.0.) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
115 |
GMREDI_CALC_TENSOR |
ldd97_LrhoC(i,j) = Cspd/ABS(fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
126 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i-1,j,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
141 |
GMREDI_CALC_TENSOR |
fCoriLoc = op5*(fCori(i,j-1,bi,bj)+fCori(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
76 |
GMREDI_DIAGNOSTICS_FILL |
& 0.5*rhoConst*fCori(i,j,bi,bj)* |
|
./pkg/gmredi/gmredi_diagnostics_fill.F |
90 |
GMREDI_DIAGNOSTICS_FILL |
& -0.5*rhoConst*fCori(i,j,bi,bj)* |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
154 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'fCori',fCori,myThid) |
|
./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/ini_cori.F |
104 |
INI_CORI |
CALL READ_REC_XY_RS( 'fCoriC.bin', fCori, 1, 0, myThid ) |
|
./model/src/ini_cori.F |
129 |
INI_CORI |
_EXCH_XY_R4(fCori,myThid) |
|
./model/src/ini_cori.F |
164 |
INI_CORI |
CALL MON_PRINTSTATS_RS(1,fCori,'fCori',myThid) |
|
./model/src/ini_cori.F |
48 |
INI_CORI |
fCori(i,j,bi,bj) = f0 |
|
./model/src/ini_cori.F |
64 |
INI_CORI |
fCori(i,j,bi,bj) = f0+beta*_yC(i,j,bi,bj)*facGrid |
|
./model/src/ini_cori.F |
78 |
INI_CORI |
fCori(i,j,bi,bj) = |
|
./model/src/ini_cori.F |
97 |
INI_CORI |
fCori(i,j,bi,bj) = 0. _d 0 |
|
./model/src/write_grid.F |
157 |
WRITE_GRID |
CALL MNC_CW_RL_W('D',bfname,0,0,'fCori',fCori,myThid) |
|
./pkg/ctrl/ctrl_map_ini_ecco.F |
238 |
CTRL_MAP_INI_ECCO |
& fCori(i,j,bi,bj)*tmpfld3d(i,j,k,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
316 |
CTRL_MAP_INI |
& + fCori(i,j,bi,bj) |
|
./pkg/ctrl/ctrl_map_ini.F |
364 |
CTRL_MAP_INI |
& fCori(i,j,bi,bj)*tmpfld3d(i,j,k,bi,bj) |
|
./model/inc/GRID.h |
398 |
NO PROCEDURE |
& fCori, fCoriG, fCoriCos |
|
./model/inc/GRID.h |
463 |
NO PROCEDURE |
_RS fCori(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |