| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_r_star.F |
49 |
OBCS_APPLY_R_STAR |
& *MAX(recip_Rcol(i,j-1,bi,bj),recip_Rcol(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
59 |
OBCS_APPLY_R_STAR |
& *MAX(recip_Rcol(i,j+1,bi,bj),recip_Rcol(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
73 |
OBCS_APPLY_R_STAR |
& *MAX(recip_Rcol(i-1,j,bi,bj),recip_Rcol(i,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_r_star.F |
83 |
OBCS_APPLY_R_STAR |
& *MAX(recip_Rcol(i+1,j,bi,bj),recip_Rcol(i,j,bi,bj)) |
|
./model/src/calc_r_star.F |
114 |
CALC_R_STAR |
& *recip_Rcol(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
127 |
EXTERNAL_FORCING_V |
recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
203 |
EXTERNAL_FORCING_T |
& (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
59 |
EXTERNAL_FORCING_U |
recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
127 |
EXTERNAL_FORCING_V |
recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
203 |
EXTERNAL_FORCING_T |
& (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
59 |
EXTERNAL_FORCING_U |
recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
127 |
EXTERNAL_FORCING_V |
recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
203 |
EXTERNAL_FORCING_T |
& (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
59 |
EXTERNAL_FORCING_U |
recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
127 |
EXTERNAL_FORCING_V |
recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
203 |
EXTERNAL_FORCING_T |
& (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
59 |
EXTERNAL_FORCING_U |
recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
192 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 0. |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
194 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. / tmpfld(i,j,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
201 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 0. |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
203 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. / tmpfld(i,j,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
127 |
EXTERNAL_FORCING_V |
recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
203 |
EXTERNAL_FORCING_T |
& (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) ) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
59 |
EXTERNAL_FORCING_U |
recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj)) |
|
./verification/advect_xz/code/ini_vel.F |
30 |
INI_VEL |
& )*Rpi*recip_Rcol(i,j,bi,bj)) |
|
./model/inc/GRID.h |
384 |
NO PROCEDURE |
& recip_Rcol, |
|
./model/inc/GRID.h |
421 |
NO PROCEDURE |
_RS recip_Rcol (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/ggl90/ggl90_calc.F |
138 |
GGL90_CALC |
IF ( recip_Rcol(I,J,bi,bj) .NE. 0. ) |
|
./pkg/ggl90/ggl90_calc.F |
139 |
GGL90_CALC |
& totalDepth(I,J) = 1./recip_Rcol(I,J,bi,bj) |
|
./model/src/ini_masks_etc.F |
172 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
174 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. / tmpfld(i,j,bi,bj) |
|
./model/src/integr_continuity.F |
183 |
INTEGR_CONTINUITY |
& dEtaHdt(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
156 |
CALC_GRAD_PHI_HYD |
& *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj)) |