| File |
Line number |
Procedure |
Code |
|
./model/src/calc_surf_dr.F |
106 |
CALC_SURF_DR |
& + rA(i,j,bi,bj)*(Rmin_surf(i,j,bi,bj)-rSurftmp(i,j)) |
|
./model/src/calc_surf_dr.F |
108 |
CALC_SURF_DR |
rSurftmp(i,j) = Rmin_surf(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
114 |
CALC_SURF_DR |
& ( rSurftmp(i,j) - MAX(rF(ks+1), R_low(i,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
142 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i-1,j,bi,bj)) hhm = rSurftmp(i-1,j) |
|
./model/src/calc_surf_dr.F |
144 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i,j,bi,bj)) hhp = rSurftmp(i,j) |
|
./model/src/calc_surf_dr.F |
158 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i,j-1,bi,bj)) hhm = rSurftmp(i,j-1) |
|
./model/src/calc_surf_dr.F |
160 |
CALC_SURF_DR |
IF(ks.EQ.ksurfC(i,j,bi,bj)) hhp = rSurftmp(i,j) |
|
./model/src/calc_surf_dr.F |
53 |
CALC_SURF_DR |
_RL rSurftmp(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/calc_surf_dr.F |
73 |
CALC_SURF_DR |
rSurftmp(i,j) = Ro_surf(i,j,bi,bj)+etaFld(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
76 |
CALC_SURF_DR |
IF (rSurftmp(i,j) .LT. Rmin_surf(i,j,bi,bj)) THEN |
|
./model/src/calc_surf_dr.F |
80 |
CALC_SURF_DR |
hFactmp = ( rSurftmp(i,j)-MAX(rF(ks+1),R_low(i,j,bi,bj)) |