1 |
gforget |
1.1 |
|
2 |
|
|
_RL xx_hfluxSMmR_dummy,xx_sfluxSMmR_dummy, |
3 |
|
|
& xx_tauuSMmR_dummy,xx_tauvSMmR_dummy, |
4 |
|
|
& xx_atempSMmR_dummy,xx_aqhSMmR_dummy, |
5 |
|
|
& xx_uwindSMmR_dummy,xx_vwindSMmR_dummy, |
6 |
|
|
& xx_precipSMmR_dummy,xx_swfluxSMmR_dummy,xx_swdownSMmR_dummy |
7 |
|
|
|
8 |
|
|
character*(80) xx_hfluxSMmR_file,xx_sfluxSMmR_file, |
9 |
|
|
& xx_tauuSMmR_file,xx_tauvSMmR_file, |
10 |
|
|
& xx_atempSMmR_file,xx_aqhSMmR_file, |
11 |
|
|
& xx_uwindSMmR_file,xx_vwindSMmR_file, |
12 |
|
|
& xx_precipSMmR_file,xx_swfluxSMmR_file,xx_swdownSMmR_file |
13 |
|
|
|
14 |
|
|
character*(80) xx_hfluxREF_file,xx_sfluxREF_file, |
15 |
|
|
& xx_tauuREF_file,xx_tauvREF_file, |
16 |
|
|
& xx_atempREF_file,xx_aqhREF_file, |
17 |
|
|
& xx_uwindREF_file,xx_vwindREF_file, |
18 |
|
|
& xx_precipREF_file,xx_swfluxREF_file,xx_swdownREF_file |
19 |
|
|
|
20 |
|
|
COMMON /mitoa_forcing_common/ |
21 |
|
|
& xx_hfluxSMmR_dummy,xx_sfluxSMmR_dummy, |
22 |
|
|
& xx_tauuSMmR_dummy,xx_tauvSMmR_dummy, |
23 |
|
|
& xx_atempSMmR_dummy,xx_aqhSMmR_dummy, |
24 |
|
|
& xx_uwindSMmR_dummy,xx_vwindSMmR_dummy, |
25 |
|
|
& xx_precipSMmR_dummy,xx_swfluxSMmR_dummy,xx_swdownSMmR_dummy |
26 |
|
|
& , xx_hfluxSMmR_file,xx_sfluxSMmR_file, |
27 |
|
|
& xx_tauuSMmR_file,xx_tauvSMmR_file, |
28 |
|
|
& xx_atempSMmR_file,xx_aqhSMmR_file, |
29 |
|
|
& xx_uwindSMmR_file,xx_vwindSMmR_file, |
30 |
|
|
& xx_precipSMmR_file,xx_swfluxSMmR_file,xx_swdownSMmR_file |
31 |
|
|
& , xx_hfluxREF_file,xx_sfluxREF_file, |
32 |
|
|
& xx_tauuREF_file,xx_tauvREF_file, |
33 |
|
|
& xx_atempREF_file,xx_aqhREF_file, |
34 |
|
|
& xx_uwindREF_file,xx_vwindREF_file, |
35 |
|
|
& xx_precipREF_file,xx_swfluxREF_file,xx_swdownREF_file |
36 |
|
|
|