File |
Line number |
Procedure |
Code |
./model/src/calc_surf_dr.F |
170 |
CALC_SURF_DR |
hFac_surfC(i,j,bi,bj) = |
./model/src/calc_surf_dr.F |
176 |
CALC_SURF_DR |
& hFac_surfC(i,j,bi,bj).GT.hFacSup ) THEN |
./model/src/calc_surf_dr.F |
183 |
CALC_SURF_DR |
& hFac_surfC(i,j,bi,bj), etaFld(i,j,bi,bj) |
./model/src/calc_surf_dr.F |
243 |
CALC_SURF_DR |
_EXCH_XY_R4(hFac_surfC, myThid ) |
./model/src/calc_surf_dr.F |
77 |
CALC_SURF_DR |
hFac_surfC(i,j,bi,bj) = 0. |
./pkg/thsice/thsice_main.F |
100 |
THSICE_MAIN |
hOceMxL(i,j,bi,bj) = drF(1)*hFac_surfC(i,j,bi,bj) |
./model/src/external_forcing_surf.F |
118 |
EXTERNAL_FORCING_SURF |
& *recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj) |
./model/src/external_forcing_surf.F |
120 |
EXTERNAL_FORCING_SURF |
& *recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj) |
./model/src/freesurf_rescale_g.F |
55 |
FREESURF_RESCALE_G |
& *hFacC(i,j,k,bi,bj)/hFac_surfC(i,j,bi,bj) |
./model/inc/SURFACE.h |
58 |
NO PROCEDURE |
& hFac_surfC, hFac_surfW, hFac_surfS |
./model/inc/SURFACE.h |
59 |
NO PROCEDURE |
_RS hFac_surfC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./pkg/aim_v23/aim_dyn2aim.F |
124 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFac_surfC(i,j,bi,bj) |
./pkg/aim_v23/aim_aim2dyn.F |
107 |
AIM_AIM2DYN |
& /hFac_surfC(i,j,bi,bj) |
./pkg/aim_v23/aim_aim2dyn.F |
109 |
AIM_AIM2DYN |
& /hFac_surfC(i,j,bi,bj) |
./pkg/ocn_compon_interf/ocn_store_my_data.F |
74 |
OCN_STORE_MY_DATA |
ocMxlD2cpl(i,j,bi,bj) = hFac_surfC(i,j,bi,bj)*drF(1) |
./model/src/update_surf_dr.F |
55 |
UPDATE_SURF_DR |
U hFac_surfC, hFac_surfW, hFac_surfS, |
./model/src/update_surf_dr.F |
64 |
UPDATE_SURF_DR |
hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj) |
./model/src/update_surf_dr.F |
65 |
UPDATE_SURF_DR |
recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj) |