| File |
Line number |
Procedure |
Code |
|
./model/src/calc_surf_dr.F |
114 |
CALC_SURF_DR |
& + rA(i,j,bi,bj)*(Rmin_surf(i,j,bi,bj)-rSurftmp(i,j)) |
|
./model/src/calc_surf_dr.F |
116 |
CALC_SURF_DR |
rSurftmp(i,j) = Rmin_surf(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
122 |
CALC_SURF_DR |
& + ( rSurftmp(i,j) - Ro_surf(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
151 |
CALC_SURF_DR |
hhm = rSurftmp(i-1,j) |
|
./model/src/calc_surf_dr.F |
152 |
CALC_SURF_DR |
hhp = rSurftmp(i,j) |
|
./model/src/calc_surf_dr.F |
172 |
CALC_SURF_DR |
hhm = rSurftmp(i,j-1) |
|
./model/src/calc_surf_dr.F |
173 |
CALC_SURF_DR |
hhp = rSurftmp(i,j) |
|
./model/src/calc_surf_dr.F |
54 |
CALC_SURF_DR |
_RL rSurftmp(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./model/src/calc_surf_dr.F |
83 |
CALC_SURF_DR |
rSurftmp(i,j) = Ro_surf(i,j,bi,bj)+etaFld(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
86 |
CALC_SURF_DR |
IF ( rSurftmp(i,j).LT.Rmin_surf(i,j,bi,bj) ) THEN |
|
./model/src/calc_surf_dr.F |
91 |
CALC_SURF_DR |
& + ( rSurftmp(i,j) - Ro_surf(i,j,bi,bj) )*recip_drF(ks) |