| File |
Line number |
Procedure |
Code |
|
./model/src/calc_r_star.F |
102 |
CALC_R_STAR |
rStarExpW(i,j,bi,bj) = rStarFacW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
125 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
131 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
167 |
CALC_R_STAR |
IF ( rStarFacW(i,j,bi,bj).LT.hFacInf ) THEN |
|
./model/src/calc_r_star.F |
175 |
CALC_R_STAR |
& 'rStarFac,H,eta =', rStarFacW(i,j,bi,bj), tmpfldW, |
|
./model/src/calc_r_star.F |
214 |
CALC_R_STAR |
CALL EXCH_UV_XY_RL(rStarFacW,rStarFacS,.FALSE.,myThid) |
|
./model/src/calc_r_star.F |
237 |
CALC_R_STAR |
IF (maskW(1-i,1-j,km,bi,bj).EQ.0.) rStarFacW(1-i,1-j,bi,bj)=1. |
|
./model/src/calc_r_star.F |
238 |
CALC_R_STAR |
IF (maskW(ii, 1-j,km,bi,bj).EQ.0.) rStarFacW(ii, 1-j,bi,bj)=1. |
|
./model/src/calc_r_star.F |
239 |
CALC_R_STAR |
IF (maskW(1-i,jj, km,bi,bj).EQ.0.) rStarFacW(1-i,jj, bi,bj)=1. |
|
./model/src/calc_r_star.F |
240 |
CALC_R_STAR |
IF (maskW(ii, jj, km,bi,bj).EQ.0.) rStarFacW(ii, jj, bi,bj)=1. |
|
./model/src/calc_r_star.F |
254 |
CALC_R_STAR |
rStarDhWDt(i,j,bi,bj)=(rStarFacW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
260 |
CALC_R_STAR |
rStarExpW(i,j,bi,bj) = rStarFacW(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
77 |
CALC_R_STAR |
rStarFacW(i,j,bi,bj) = 1. |
|
./model/src/update_r_star.F |
54 |
UPDATE_R_STAR |
U rStarFacC, rStarFacW, rStarFacS, |
|
./model/src/update_r_star.F |
65 |
UPDATE_R_STAR |
& *rStarFacW(i,j,bi,bj) |
|
./model/inc/SURFACE.h |
74 |
NO PROCEDURE |
& rStarFacC, rStarFacW, rStarFacS, |
|
./model/inc/SURFACE.h |
78 |
NO PROCEDURE |
_RL rStarFacW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |