-
Notifications
You must be signed in to change notification settings - Fork 1
/
SPECTRAL.h
60 lines (53 loc) · 1.9 KB
/
SPECTRAL.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
C $Header: /u/gcmpack/MITgcm_contrib/darwin2/pkg/darwin/SPECTRAL.h,v 1.1 2011/04/13 18:56:23 jahn Exp $
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