| File |
Line number |
Procedure |
Code |
|
./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 |
132 |
AIM_AIM2DYN |
& /hFac_surfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_aim2dyn.F |
134 |
AIM_AIM2DYN |
& /hFac_surfC(i,j,bi,bj) |
|
./model/src/ini_surf_dr.F |
54 |
INI_SURF_DR |
hFac_surfC(i,j,bi,bj) = 0. |
|
./model/src/freesurf_rescale_g.F |
57 |
FREESURF_RESCALE_G |
& *_hFacC(i,j,k,bi,bj)/hFac_surfC(i,j,bi,bj) |
|
./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) |
|
./model/src/external_forcing_surf.F |
122 |
EXTERNAL_FORCING_SURF |
& *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
124 |
EXTERNAL_FORCING_SURF |
& *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
113 |
CALC_SURF_DR |
hFac_surfC(i,j,bi,bj) = |
|
./model/src/calc_surf_dr.F |
119 |
CALC_SURF_DR |
& hFac_surfC(i,j,bi,bj).GT.hFacSup ) THEN |
|
./model/src/calc_surf_dr.F |
126 |
CALC_SURF_DR |
& hFac_surfC(i,j,bi,bj), etaFld(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
186 |
CALC_SURF_DR |
_EXCH_XY_R4(hFac_surfC, myThid ) |
|
./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) |
|
./pkg/thsice/thsice_main.F |
115 |
THSICE_MAIN |
hOceMxL(i,j,bi,bj) = drF(1)*hFac_surfC(i,j,bi,bj) |