338 |
C coeff. function of stability (like over |
C coeff. function of stability (like over |
339 |
C open ocean) rather than using fixed Coeff. |
C open ocean) rather than using fixed Coeff. |
340 |
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 |
341 |
|
C noNegativeEvap :: prevent negative evaporation (= sea-surface condensation) |
342 |
|
|
343 |
logical useExfYearlyFields, twoDigitYear |
logical useExfYearlyFields, twoDigitYear |
344 |
logical useExfCheckRange |
logical useExfCheckRange |
347 |
logical stressIsOnCgrid |
logical stressIsOnCgrid |
348 |
logical useStabilityFct_overIce |
logical useStabilityFct_overIce |
349 |
logical useRelativeWind |
logical useRelativeWind |
350 |
|
logical noNegativeEvap |
351 |
|
|
352 |
common /exf_param_l/ |
common /exf_param_l/ |
353 |
& useExfYearlyFields, twoDigitYear, |
& useExfYearlyFields, twoDigitYear, |
354 |
& useExfCheckRange, |
& useExfCheckRange, |
355 |
& readStressOnAgrid, readStressOnCgrid, |
& readStressOnAgrid, readStressOnCgrid, |
356 |
& stressIsOnCgrid, useStabilityFct_overIce, |
& stressIsOnCgrid, useStabilityFct_overIce, |
357 |
& useRelativeWind |
& useRelativeWind, noNegativeEvap |
358 |
common /exf_param_i/ |
common /exf_param_i/ |
359 |
& hfluxstartdate1, hfluxstartdate2, |
& hfluxstartdate1, hfluxstartdate2, |
360 |
& atempstartdate1, atempstartdate2, |
& atempstartdate1, atempstartdate2, |