pkg/darwin/SPECTRAL.h

C $Header$
C $Name$

C SPECTRAL.h 
C description: spectral runtime parameters and fields

C  darwin_waves         :: 'central' wavelengths of wavebands (nm)
      COMMON/SPECTRAL_PARAMS_R/darwin_waves
      _RL darwin_waves(tlam)

C WtouEins    :: W to uEin/s conversion factor
      COMMON/darwin_oasim/ WtouEins
      _RL WtouEins(tlam)

C oasim_ed :: spectral direct downwelling irradiance at surface read from file
C oasim_es :: spectral diffuse downwelling irradiance at surface read from file
#ifdef OASIM
         _RL oasim_ed(1-OLx:sNx+OLx,1-OLy:sNy+OLy,tlam,nSx, nSy)
         _RL oasim_es(1-OLx:sNx+OLx,1-OLy:sNy+OLy,tlam,nSx, nSy)
         COMMON /SPECTRAL_INPUT/ oasim_ed, oasim_es
#endif

      COMMON /SPECTRAL_OUPUT/
#ifdef DAR_DIAG_IRR
     &      Edave,Esave,Euave,Eutave,
#endif
#ifdef DAR_DIAG_ABSORP
     &      aave,
#endif
#ifdef DAR_DIAG_SCATTER
     &      btave,
     &      bbave,
#endif
#ifdef DAR_DIAG_PART_SCATTER
     &      apartave,
     &      btpartave,
     &      bbpartave,
#endif
     &      spectral_output_dummy

#ifdef DAR_DIAG_IRR
       _RL  Edave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
       _RL  Esave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
       _RL  Euave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
       _RL  Eutave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
#endif
#ifdef DAR_DIAG_ABSORP
       _RL  aave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
#endif
#ifdef DAR_DIAG_SCATTER
       _RL  btave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
       _RL  bbave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
#endif
#ifdef DAR_DIAG_PART_SCATTER
       _RL  apartave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
       _RL  bbpartave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
       _RL  btpartave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
#endif
       _RL  spectral_output_dummy

1	C $Header$
2	C $Name$
3
4	C SPECTRAL.h
5	C description: spectral runtime parameters and fields
6
7	C darwin_waves :: 'central' wavelengths of wavebands (nm)
8	COMMON/SPECTRAL_PARAMS_R/darwin_waves
9	_RL darwin_waves(tlam)
10
11	C WtouEins :: W to uEin/s conversion factor
12	COMMON/darwin_oasim/ WtouEins
13	_RL WtouEins(tlam)
14
15	C oasim_ed :: spectral direct downwelling irradiance at surface read from file
16	C oasim_es :: spectral diffuse downwelling irradiance at surface read from file
17	#ifdef OASIM
18	_RL oasim_ed(1-OLx:sNx+OLx,1-OLy:sNy+OLy,tlam,nSx, nSy)
19	_RL oasim_es(1-OLx:sNx+OLx,1-OLy:sNy+OLy,tlam,nSx, nSy)
20	COMMON /SPECTRAL_INPUT/ oasim_ed, oasim_es
21	#endif
22
23	COMMON /SPECTRAL_OUPUT/
24	#ifdef DAR_DIAG_IRR
25	& Edave,Esave,Euave,Eutave,
26	#endif
27	#ifdef DAR_DIAG_ABSORP
28	& aave,
29	#endif
30	#ifdef DAR_DIAG_SCATTER
31	& btave,
32	& bbave,
33	#endif
34	#ifdef DAR_DIAG_PART_SCATTER
35	& apartave,
36	& btpartave,
37	& bbpartave,
38	#endif
39	& spectral_output_dummy
40
41	#ifdef DAR_DIAG_IRR
42	_RL Edave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
43	_RL Esave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
44	_RL Euave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
45	_RL Eutave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
46	#endif
47	#ifdef DAR_DIAG_ABSORP
48	_RL aave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
49	#endif
50	#ifdef DAR_DIAG_SCATTER
51	_RL btave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
52	_RL bbave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
53	#endif
54	#ifdef DAR_DIAG_PART_SCATTER
55	_RL apartave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
56	_RL bbpartave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
57	_RL btpartave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
58	#endif
59	_RL spectral_output_dummy
60