1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_BULK_FORCE |
5 |
c !ROUTINE: BULKF_INT.h |
6 |
|
7 |
C Intermediate variables for bulk forcing |
8 |
COMMON /BULKF_FFIELDS_INTERMEDIATE/ |
9 |
& evap, savssq, fsh, flh, fswnet, flwup, flwupnet, |
10 |
& ustress, vstress |
11 |
_RL evap(1-olx:snx+olx,1-oly:sny+oly,nSx,nSy) |
12 |
_RL savssq(1-olx:snx+olx,1-oly:sny+oly,nSx,nSy) |
13 |
_RL fsh(1-olx:snx+olx,1-oly:sny+oly,nSx,nSy) |
14 |
_RL flh(1-olx:snx+olx,1-oly:sny+oly,nSx,nSy) |
15 |
_RL fswnet(1-olx:snx+olx,1-oly:sny+oly,nSx,nSy) |
16 |
_RL flwup(1-olx:snx+olx,1-oly:sny+oly,nSx,nSy) |
17 |
_RL flwupnet(1-olx:snx+olx,1-oly:sny+oly,nSx,nSy) |
18 |
_RL ustress(1-olx:snx+olx,1-oly:sny+oly,nSx,nSy) |
19 |
_RL vstress(1-olx:snx+olx,1-oly:sny+oly,nSx,nSy) |
20 |
#endif /* ALLOW_BULK_FORCE */ |