342 |
C open ocean) rather than using fixed Coeff. |
C open ocean) rather than using fixed Coeff. |
343 |
C useRelativeWind :: Subtract U/VVEL or U/VICE from U/VWIND before computing U/VSTRESS |
C useRelativeWind :: Subtract U/VVEL or U/VICE from U/VWIND before computing U/VSTRESS |
344 |
C noNegativeEvap :: prevent negative evaporation (= sea-surface condensation) |
C noNegativeEvap :: prevent negative evaporation (= sea-surface condensation) |
345 |
|
C useExfZenAlbedo :: ocean albedo varies with zenith angle |
346 |
|
C useExfZenIncoming :: compute incoming solar radiation along with zenith angle |
347 |
|
|
348 |
logical useExfYearlyFields, twoDigitYear |
logical useExfYearlyFields, twoDigitYear |
349 |
logical useExfCheckRange |
logical useExfCheckRange |
350 |
logical useExfZenithAngle |
logical useExfZenAlbedo |
351 |
|
logical useExfZenIncoming |
352 |
logical readStressOnAgrid |
logical readStressOnAgrid |
353 |
logical readStressOnCgrid |
logical readStressOnCgrid |
354 |
logical stressIsOnCgrid |
logical stressIsOnCgrid |
358 |
|
|
359 |
common /exf_param_l/ |
common /exf_param_l/ |
360 |
& useExfYearlyFields, twoDigitYear, |
& useExfYearlyFields, twoDigitYear, |
361 |
& useExfCheckRange, useExfZenithAngle, |
& useExfCheckRange, |
362 |
|
& useExfZenAlbedo, useExfZenIncoming, |
363 |
& readStressOnAgrid, readStressOnCgrid, |
& readStressOnAgrid, readStressOnCgrid, |
364 |
& stressIsOnCgrid, useStabilityFct_overIce, |
& stressIsOnCgrid, useStabilityFct_overIce, |
365 |
& useRelativeWind, noNegativeEvap |
& useRelativeWind, noNegativeEvap |