| File |
Line number |
Procedure |
Code |
|
./model/inc/SURFACE.h |
66 |
NO PROCEDURE |
COMMON /LOCAL_CALC_SURF_DR/ Rmin_surf |
|
./model/inc/SURFACE.h |
67 |
NO PROCEDURE |
_RL Rmin_surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/ini_surf_dr.F |
58 |
INI_SURF_DR |
Rmin_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj) |
|
./model/src/ini_surf_dr.F |
77 |
INI_SURF_DR |
Rmin_surf(i,j,bi,bj) = |
|
./model/src/ini_surf_dr.F |
89 |
INI_SURF_DR |
_EXCH_XY_R8( Rmin_surf, myThid ) |
|
./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 |
76 |
CALC_SURF_DR |
IF (rSurftmp(i,j) .LT. Rmin_surf(i,j,bi,bj)) THEN |