115 |
|
|
116 |
LOGICAL calcWindStress |
LOGICAL calcWindStress |
117 |
LOGICAL useFluxFormula_AIM |
LOGICAL useFluxFormula_AIM |
118 |
|
LOGICAL useQnetch, useEmPch |
119 |
|
|
120 |
COMMON / BULK_PAR_L / |
COMMON / BULK_PAR_L / |
121 |
& calcWindStress, |
& calcWindStress, |
122 |
& useFluxFormula_AIM |
& useFluxFormula_AIM, |
123 |
|
& useQnetch, useEmPch |
124 |
|
|
125 |
C-- COMMON / BULK_PAR_C / Character string parameters |
C-- COMMON / BULK_PAR_C / Character string parameters |
126 |
CHARACTER*(MAX_LEN_FNAM) AirTempFile |
CHARACTER*(MAX_LEN_FNAM) AirTempFile |