| File |
Line number |
Procedure |
Code |
|
./model/inc/SURFACE.h |
80 |
NO PROCEDURE |
& rStarFacC, rStarFacW, rStarFacS, |
|
./model/inc/SURFACE.h |
85 |
NO PROCEDURE |
_RL rStarFacS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/ini_r_star.F |
56 |
INI_R_STAR |
rStarFacS(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 |
68 |
UPDATE_R_STAR |
& *rStarFacS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
102 |
CALC_R_STAR |
rStarExpS(i,j,bi,bj) = rStarFacS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
139 |
CALC_R_STAR |
rStarFacS(i,j,bi,bj) = |
|
./model/src/calc_r_star.F |
145 |
CALC_R_STAR |
rStarFacS(i,j,bi,bj) = 1. |
|
./model/src/calc_r_star.F |
180 |
CALC_R_STAR |
IF ( rStarFacS(i,j,bi,bj).LT.hFacInf ) THEN |
|
./model/src/calc_r_star.F |
188 |
CALC_R_STAR |
& 'rStarFac,H,eta =', rStarFacS(i,j,bi,bj), tmpfldS, |
|
./model/src/calc_r_star.F |
213 |
CALC_R_STAR |
CALL EXCH_UV_XY_RL(rStarFacW,rStarFacS,.FALSE.,myThid) |
|
./model/src/calc_r_star.F |
241 |
CALC_R_STAR |
IF (ksurfS(1-i,1-j,bi,bj).GT.Nr) rStarFacS(1-i,1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
242 |
CALC_R_STAR |
IF (ksurfS(ii, 1-j,bi,bj).GT.Nr) rStarFacS(ii, 1-j,bi,bj)= 1. |
|
./model/src/calc_r_star.F |
243 |
CALC_R_STAR |
IF (ksurfS(1-i,jj, bi,bj).GT.Nr) rStarFacS(1-i,jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
244 |
CALC_R_STAR |
IF (ksurfS(ii, jj, bi,bj).GT.Nr) rStarFacS(ii, jj, bi,bj)= 1. |
|
./model/src/calc_r_star.F |
257 |
CALC_R_STAR |
rStarDhSDt(i,j,bi,bj)=(rStarFacS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
263 |
CALC_R_STAR |
rStarExpS(i,j,bi,bj) = rStarFacS(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
77 |
CALC_R_STAR |
rStarFacS(i,j,bi,bj) = 1. |