305 |
C useStabilityFct_overIce :: over sea-ice, compute turbulent transfert |
C useStabilityFct_overIce :: over sea-ice, compute turbulent transfert |
306 |
C coeff. function of stability (like over |
C coeff. function of stability (like over |
307 |
C open ocean) rather than using fixed Coeff. |
C open ocean) rather than using fixed Coeff. |
308 |
|
C useRelativeWind :: Subtract U/VVEL or U/VICE from U/VWIND before computing U/VSTRESS |
309 |
|
|
310 |
logical useExfYearlyFields, twoDigitYear |
logical useExfYearlyFields, twoDigitYear |
311 |
logical useExfCheckRange |
logical useExfCheckRange |
312 |
logical readStressOnAgrid |
logical readStressOnAgrid |
313 |
logical readStressOnCgrid |
logical readStressOnCgrid |
314 |
logical stressIsOnCgrid |
logical stressIsOnCgrid |
315 |
logical useStabilityFct_overIce |
logical useStabilityFct_overIce |
316 |
|
logical useRelativeWind |
317 |
|
|
318 |
common /exf_param_l/ |
common /exf_param_l/ |
319 |
& useExfYearlyFields, twoDigitYear, |
& useExfYearlyFields, twoDigitYear, |
320 |
& useExfCheckRange, |
& useExfCheckRange, |
321 |
& readStressOnAgrid, readStressOnCgrid, |
& readStressOnAgrid, readStressOnCgrid, |
322 |
& stressIsOnCgrid, useStabilityFct_overIce |
& stressIsOnCgrid, useStabilityFct_overIce, |
323 |
|
& useRelativeWind |
324 |
common /exf_param_i/ |
common /exf_param_i/ |
325 |
& hfluxstartdate1, hfluxstartdate2, |
& hfluxstartdate1, hfluxstartdate2, |
326 |
& atempstartdate1, atempstartdate2, |
& atempstartdate1, atempstartdate2, |