18 |
CEOP |
CEOP |
19 |
|
|
20 |
C-- COMMON /SURF_FIXED/ fixed surface arrays (Real) |
C-- COMMON /SURF_FIXED/ fixed surface arrays (Real) |
21 |
C Bo_surf :: Boyancy|1/rho [ocean|atmos] at surface level [=g|alpha(p_o)] |
C Bo_surf :: Buoyancy|1/rho [ocean|atmos] at surface level [=g|alpha(p_o)] |
22 |
C recip_Bo :: 1/Bo_surf |
C recip_Bo :: 1/Bo_surf |
23 |
C topoZ :: topographic height [m] (used mainly for atmosphere) |
C topoZ :: topographic height [m] (used mainly for atmosphere) |
24 |
C phi0surf :: starting point for integrating phi_Hyd |
C phi0surf :: starting point for integrating phi_Hyd |
44 |
COMMON /EXACT_ETA_LOCAL/ etaHnm1, dEtaHdt, PmEpR |
COMMON /EXACT_ETA_LOCAL/ etaHnm1, dEtaHdt, PmEpR |
45 |
_RL etaHnm1(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
_RL etaHnm1(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
46 |
_RL dEtaHdt(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
_RL dEtaHdt(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy) |
47 |
_RS PmEpR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RL PmEpR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
48 |
#endif |
#endif |
49 |
|
|
50 |
#ifdef NONLIN_FRSURF |
#ifdef NONLIN_FRSURF |