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