File |
Line number |
Procedure |
Code |
./model/inc/SURFACE.h |
70 |
NO PROCEDURE |
COMMON /LOCAL_CALC_SURF_DR/ Rmin_surf |
./model/inc/SURFACE.h |
71 |
NO PROCEDURE |
_RL Rmin_surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
./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 |
86 |
CALC_SURF_DR |
IF ( rSurftmp(i,j).LT.Rmin_surf(i,j,bi,bj) ) THEN |
./model/src/ini_nlfs_vars.F |
152 |
INI_NLFS_VARS |
Rmin_surf(i,j,bi,bj) = |
./model/src/ini_nlfs_vars.F |
164 |
INI_NLFS_VARS |
CALL EXCH_XY_RL( Rmin_surf, myThid ) |
./model/src/ini_nlfs_vars.F |
80 |
INI_NLFS_VARS |
Rmin_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj) |