| File |
Line number |
Procedure |
Code |
|
./model/inc/SURFACE.h |
25 |
NO PROCEDURE |
COMMON /SURF_FIXED/ Bo_surf, recip_Bo, topoZ, phi0surf |
|
./model/inc/SURFACE.h |
29 |
NO PROCEDURE |
_RS phi0surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/calc_grad_phi_fv.F |
79 |
CALC_GRAD_PHI_FV |
dPhiHydX(i,j) = ( phi0surf(i,j,bi,bj) - phi0surf(i-1,j,bi,bj) ) |
|
./model/src/calc_grad_phi_fv.F |
91 |
CALC_GRAD_PHI_FV |
dPhiHydY(i,j) = ( phi0surf(i,j,bi,bj) - phi0surf(i,j-1,bi,bj) ) |
|
./model/src/calc_grad_phi_hyd.F |
102 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
108 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
125 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
137 |
CALC_GRAD_PHI_HYD |
varLoc(i,j) = phiHydC(i,j)+phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
79 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
86 |
CALC_GRAD_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./pkg/monitor/mon_ke.F |
142 |
MON_KE |
& + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj) |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
133 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
140 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
147 |
OCN_APPLY_IMPORT |
phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst |
|
./pkg/ocn_compon_interf/ocn_apply_import.F |
176 |
OCN_APPLY_IMPORT |
_EXCH_XY_RS( phi0surf, myThid ) |
|
./model/src/diags_phi_hyd.F |
105 |
DIAGS_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
117 |
DIAGS_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
67 |
DIAGS_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
85 |
DIAGS_PHI_HYD |
& - phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_hyd.F |
89 |
DIAGS_PHI_HYD |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
147 |
DIAGS_PHI_RLOW |
& - phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
151 |
DIAGS_PHI_RLOW |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
164 |
DIAGS_PHI_RLOW |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
177 |
DIAGS_PHI_RLOW |
& + phi0surf(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
190 |
DIAGS_PHI_RLOW |
& + phi0surf(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
362 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
370 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./pkg/shelfice/shelfice_forcing_surf.F |
127 |
SHELFICE_FORCING_SURF |
phi0surf(i,j,bi,bj) = phi0surf(i,j,bi,bj) |
|
./model/src/ini_forcing.F |
183 |
INI_FORCING |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
207 |
INI_LINEAR_PHISURF |
phi0surf(i,j,bi,bj) = 0. |
|
./model/src/ini_linear_phisurf.F |
229 |
INI_LINEAR_PHISURF |
_EXCH_XY_RS(phi0surf, myThid) |
|
./model/src/ini_linear_phisurf.F |
230 |
INI_LINEAR_PHISURF |
CALL WRITE_FLD_XY_RS( 'phi0surf',' ',phi0surf,0,myThid) |
|
./model/src/ini_p_ground.F |
344 |
INI_P_GROUND |
phi0surf(i,j,bi,bj) = gravity*(zLoc - Hfld(i,j,bi,bj)) |
|
./model/src/ini_psurf.F |
105 |
INI_PSURF |
phi0surf(i,j,bi,bj) = phi0surf(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
365 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
373 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
365 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
373 |
EXTERNAL_FORCING_SURF |
phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst |