| File |
Line number |
Procedure |
Code |
|
./model/src/calc_surf_dr.F |
130 |
CALC_SURF_DR |
rSurftmp(i,j) = Ro_surf(i,j,bi,bj)+etaFld(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
133 |
CALC_SURF_DR |
IF (rSurftmp(i,j) .LT. Rmin_surf(i,j,bi,bj)) THEN |
|
./model/src/calc_surf_dr.F |
137 |
CALC_SURF_DR |
hFactmp = ( rSurftmp(i,j)-MAX(rF(ks+1),R_low(i,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
163 |
CALC_SURF_DR |
& + rA(i,j,bi,bj)*(Rmin_surf(i,j,bi,bj)-rSurftmp(i,j)) |
|
./model/src/calc_surf_dr.F |
165 |
CALC_SURF_DR |
rSurftmp(i,j) = Rmin_surf(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
171 |
CALC_SURF_DR |
& ( rSurftmp(i,j) - MAX(rF(ks+1), R_low(i,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
199 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i-1,j,bi,bj)) hhm = rSurftmp(i-1,j) |
|
./model/src/calc_surf_dr.F |
201 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i,j,bi,bj)) hhp = rSurftmp(i,j) |
|
./model/src/calc_surf_dr.F |
215 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i,j-1,bi,bj)) hhm = rSurftmp(i,j-1) |
|
./model/src/calc_surf_dr.F |
217 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i,j,bi,bj)) hhp = rSurftmp(i,j) |
|
./model/src/calc_surf_dr.F |
58 |
CALC_SURF_DR |
_RL rSurftmp(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |