| File |
Line number |
Procedure |
Code |
|
./model/src/calc_surf_dr.F |
100 |
CALC_SURF_DR |
Rmin_surf(i,j,bi,bj) = |
|
./model/src/calc_surf_dr.F |
112 |
CALC_SURF_DR |
_EXCH_XY_R8( Rmin_surf, myThid ) |
|
./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 |
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 |
46 |
CALC_SURF_DR |
COMMON /LOCAL_CALC_SURF_DR/ Rmin_surf |
|
./model/src/calc_surf_dr.F |
47 |
CALC_SURF_DR |
_RL Rmin_surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/calc_surf_dr.F |
81 |
CALC_SURF_DR |
Rmin_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj) |