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 |
105 |
C darwin_bbphy :: backscattering to forward scattering ratio for Chlorophyll |
C darwin_bbphy :: backscattering to forward scattering ratio for Chlorophyll |
106 |
C darwin_bbmin :: minimum backscattering coefficient (not ratio) |
C darwin_bbmin :: minimum backscattering coefficient (not ratio) |
107 |
c darwin_radtrans_kmax :: deepest layer to compute irradiances in |
c darwin_radtrans_kmax :: deepest layer to compute irradiances in |
108 |
c darwin_radtrans_niter :: number of iterations for iterative improvement of radmod solution |
c (is considered infinitely deep for boundary condition) |
109 |
|
c darwin_radtrans_niter :: how to solve 3-stream equations: |
110 |
|
c -2 means use direct solver (default) |
111 |
|
c -1 means use approximate non-iterative solver |
112 |
|
c (either a la Aas #ifdef DAR_RADTRANS_DECREASING, or a la W.Gregg) |
113 |
|
c >= 0 is number of iterations for iterative improvement of radmod solution |
114 |
c darwin_part_size_P :: phosphorus content of one particle. used to compute number of particles |
c darwin_part_size_P :: phosphorus content of one particle. used to compute number of particles |
115 |
C |
C |
116 |
|
|
117 |
COMMON /DARWIN_RADTRANS_PARM_I/ |
COMMON /DARWIN_RADTRANS_PARM_I/ |
118 |
& darwin_PAR_ilamLo, darwin_PAR_ilamHi |
& darwin_PAR_ilamLo, darwin_PAR_ilamHi |
119 |
& ,darwin_radtrans_kmax |
& ,darwin_radtrans_kmax |