Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by jmc, Tue Mar 6 16:31:04 2001 UTC | revision 1.2 by adcroft, Tue May 29 14:01:36 2001 UTC | |
---|---|---|
# | Line 17 C recip_Bo = 1/Bo_surf | Line 17 C recip_Bo = 1/Bo_surf |
17 | _RL Bo_surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) | _RL Bo_surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
18 | _RL recip_Bo(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) | _RL recip_Bo(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
19 | ||
20 | C-- COMMON /SURF_INDEX/ Common block for surface related index | |
21 | C k_surf - vertical index of the surface tracer cell | |
22 | COMMON /SURF_INDEX/ k_surf | |
23 | INTEGER k_surf(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |