File |
Line number |
Procedure |
Code |
./pkg/generic_advdiff/gad_implicit_r.F |
402 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*hFac_surfC(i,j,bi,bj)*drF(k) |
./model/inc/SURFACE.h |
58 |
NO PROCEDURE |
& hFac_surfC, hFac_surfW, hFac_surfS, |
./model/inc/SURFACE.h |
60 |
NO PROCEDURE |
_RS hFac_surfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/longstep/longstep_thermodynamics.F |
171 |
LONGSTEP_THERMODYNAMICS |
recip_hFacNew(i,j,k) = 1. _d 0 / hFac_surfC(i,j,bi,bj) |
./model/src/calc_surf_dr.F |
121 |
CALC_SURF_DR |
hFac_surfC(i,j,bi,bj) = h0FacC(i,j,ks,bi,bj) |
./model/src/calc_surf_dr.F |
127 |
CALC_SURF_DR |
& hFac_surfC(i,j,bi,bj).GT.hFacSup ) THEN |
./model/src/calc_surf_dr.F |
134 |
CALC_SURF_DR |
& hFac_surfC(i,j,bi,bj), etaFld(i,j,bi,bj) |
./model/src/calc_surf_dr.F |
192 |
CALC_SURF_DR |
U hFac_surfC, hFac_surfW, hFac_surfS, |
./model/src/calc_surf_dr.F |
214 |
CALC_SURF_DR |
_EXCH_XY_RS(hFac_surfC, myThid ) |
./model/src/calc_surf_dr.F |
72 |
CALC_SURF_DR |
hFac_surfNm1C(i,j,bi,bj) = hFac_surfC(i,j,bi,bj) |
./pkg/ocn_compon_interf/ocn_store_my_data.F |
83 |
OCN_STORE_MY_DATA |
ocMxlD2cpl(i,j,bi,bj) = hFac_surfC(i,j,bi,bj)*drF(1) |
./model/src/forcing_surf_relax.F |
152 |
FORCING_SURF_RELAX |
& *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj) |
./model/src/forcing_surf_relax.F |
154 |
FORCING_SURF_RELAX |
& *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj) |
./model/src/freesurf_rescale_g.F |
69 |
FREESURF_RESCALE_G |
& *_hFacC(i,j,k,bi,bj)/hFac_surfC(i,j,bi,bj) |
./pkg/thsice/thsice_get_ocean.F |
76 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*hFac_surfC(i,j,bi,bj) |
./model/src/ini_nlfs_vars.F |
74 |
INI_NLFS_VARS |
hFac_surfC(i,j,bi,bj) = 0. |
./model/src/thermodynamics.F |
232 |
THERMODYNAMICS |
recip_hFacNew(i,j,k) = 1. _d 0 / hFac_surfC(i,j,bi,bj) |
./model/src/update_surf_dr.F |
59 |
UPDATE_SURF_DR |
hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj) |
./model/src/update_surf_dr.F |
60 |
UPDATE_SURF_DR |
recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj) |
./pkg/aim_v23/aim_aim2dyn.F |
165 |
AIM_AIM2DYN |
& /hFac_surfC(i,j,bi,bj) |
./pkg/aim_v23/aim_aim2dyn.F |
167 |
AIM_AIM2DYN |
& /hFac_surfC(i,j,bi,bj) |
./pkg/aim_v23/aim_dyn2aim.F |
127 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFac_surfC(i,j,bi,bj) |
./pkg/atm2d/get_ocnvars.F |
90 |
GET_OCNVARS |
mlDepth(i,j) = hFac_surfC(i,j,1,1)*drF(1) |