| File |
Line number |
Procedure |
Code |
|
./model/src/calc_grad_phi_hyd.F |
169 |
CALC_GRAD_PHI_HYD |
& *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj)) |
|
./model/src/calc_r_star.F |
88 |
CALC_R_STAR |
& *recip_Rcol(i,j,bi,bj) |
|
./pkg/obcs/obcs_apply_r_star.F |
47 |
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 |
57 |
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 |
71 |
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 |
81 |
OBCS_APPLY_R_STAR |
& *MAX(recip_Rcol(i+1,j,bi,bj),recip_Rcol(i,j,bi,bj)) |
|
./model/src/cg3d.F |
194 |
CG3D |
& *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/cg3d.F |
384 |
CG3D |
& *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
218 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 0. |
|
./model/src/ini_masks_etc.F |
220 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj) |
|
./model/src/ini_nh_fields.F |
111 |
INI_NH_FIELDS |
& *recip_Rcol(i,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/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.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.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)) |
|
./model/src/integr_continuity.F |
215 |
INTEGR_CONTINUITY |
& *recip_Rcol(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)) |
|
./model/src/post_cg3d.F |
99 |
POST_CG3D |
dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj)*recip_Rcol(i,j,bi,bj) |
|
./model/src/pre_cg3d.F |
133 |
PRE_CG3D |
& *recip_Rcol(i,j,bi,bj) |
|
./model/src/update_masks_etc.F |
180 |
UPDATE_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 0. |
|
./model/src/update_masks_etc.F |
182 |
UPDATE_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj) |
|
./model/inc/GRID.h |
410 |
NO PROCEDURE |
& recip_Rcol, |
|
./model/inc/GRID.h |
445 |
NO PROCEDURE |
_RS recip_Rcol (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |