49 |
& ,sf |
& ,sf |
50 |
#endif |
#endif |
51 |
#ifdef DAR_CALC_ACDOM |
#ifdef DAR_CALC_ACDOM |
52 |
& ,darwin_Sdom ! used in acdom calculations |
& ,darwin_Sdom ! slope parameter for aCDOM wavelength dependence |
53 |
|
& ,darwin_lambda_aCDOM ! wavelength where aCDOM is given |
54 |
|
& ,darwin_aCDOM_fac ! ratio of aCDOM to (aphy+aw) at darwin_lambda_aCDOM |
55 |
& ,excdom ! CDOM exponent |
& ,excdom ! CDOM exponent |
56 |
#else |
#else |
57 |
& ,acdom |
& ,acdom |
59 |
COMMON/wavebands_params_i/ap_type |
COMMON/wavebands_params_i/ap_type |
60 |
& ,pwaves |
& ,pwaves |
61 |
#ifdef DAR_CALC_ACDOM |
#ifdef DAR_CALC_ACDOM |
62 |
& ,nl450 ! what is this? used in acdom calculations |
& ,nlaCDOM ! waveband index where aCDOM is given |
63 |
#endif |
#endif |
64 |
#ifdef DAR_DIAG_ACDOM |
#ifdef DAR_DIAG_ACDOM |
65 |
& ,darwin_diag_acdom_ilam ! waveband to write to diagnostic |
& ,darwin_diag_acdom_ilam ! waveband to write to diagnostic |
81 |
#endif |
#endif |
82 |
#ifdef DAR_CALC_ACDOM |
#ifdef DAR_CALC_ACDOM |
83 |
_RL darwin_Sdom ! used in acdom calculations |
_RL darwin_Sdom ! used in acdom calculations |
84 |
|
_RL darwin_lambda_aCDOM ! wavelength where aCDOM is given |
85 |
|
_RL darwin_aCDOM_fac ! ratio of aCDOM to (aphy+aw) at darwin_lambda_aCDOM |
86 |
_RL excdom(tlam) ! CDOM exponent |
_RL excdom(tlam) ! CDOM exponent |
87 |
INTEGER nl450 ! what is this? it's the nl number for 450nm used in acdom calculations |
INTEGER nlaCDOM ! nl number where aCDOM is given used in acdom calculations |
88 |
#else |
#else |
89 |
_RL acdom(tlam) |
_RL acdom(tlam) |
90 |
#endif |
#endif |