| 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 |
|