data10

fortran原代码,提供各种基本算法的程序.可移植性能很好.

0                  (USER'S CONDITIONS)
30 0. 0 30. 4 4    (GEOMETRICAL CONDITIONS, MONTH, DAY OF MONTH)
0                  (NO GASEOUS ABSORPTION)
1                  (AEROSOLS MODEL)
0                  (NEXT VALUE IS THE AERO. OPT. THICK. @550)
0.2                (AERO. OPT. THICK. @550)
0.                 (TARGET ALTITUDE IN KM)
-.1                (AIRCRAFT ALTITUDE AT 0.1 KM)
-1 -1              (Uh2o and Uo3 under the plane not available)
-1                 (AOT @550 under the plane not available)
0                  (USER'S WLINF-WLSUP)
0.45  0.50         (WLINF  WLSUP)
0                  (HOMOGENEOUS CASE)
0                  (NO DIRECTIONNAL EFFECTS)
0                  (NEXT VALUE IS THE GROUND REFLECTANCE)
1                  (GROUND REFLECTANCE)
-2                  (NO ATMOSPHERIC CORRECTION)