1 |
jmc |
1.2 |
C $Header: $ |
2 |
|
|
C $Name: $ |
3 |
|
|
|
4 |
cheisey |
1.1 |
#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 |
jmc |
1.2 |
#endif /* ALLOW_BULK_FORCE */ |