/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/SPECTRAL.h
ViewVC logotype

Annotation of /MITgcm_contrib/darwin2/pkg/darwin/SPECTRAL.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.5 - (hide annotations) (download)
Tue Oct 23 17:55:30 2012 UTC (13 years ago) by stephd
Branch: MAIN
CVS Tags: ctrb_darwin2_ckpt64k_20130723, ctrb_darwin2_ckpt65w_20160512, ctrb_darwin2_ckpt65j_20150225, ctrb_darwin2_ckpt66g_20170424, ctrb_darwin2_ckpt64h_20130528, ctrb_darwin2_ckpt66k_20171025, ctrb_darwin2_ckpt66n_20180118, ctrb_darwin2_ckpt65v_20160409, ctrb_darwin2_ckpt65s_20160114, ctrb_darwin2_ckpt65_20140718, ctrb_darwin2_ckpt64m_20130820, ctrb_darwin2_ckpt66d_20170214, ctrb_darwin2_ckpt64r_20131210, ctrb_darwin2_ckpt65m_20150615, ctrb_darwin2_ckpt65q_20151118, ctrb_darwin2_ckpt65o_20150914, ctrb_darwin2_ckpt64f_20130405, ctrb_darwin2_ckpt64a_20121116, ctrb_darwin2_ckpt65p_20151023, ctrb_darwin2_ckpt64n_20130826, ctrb_darwin2_ckpt65e_20140929, ctrb_darwin2_ckpt64o_20131024, ctrb_darwin2_ckpt64v_20140411, ctrb_darwin2_ckpt64z_20140711, ctrb_darwin2_ckpt65l_20150504, ctrb_darwin2_ckpt65z_20160929, ctrb_darwin2_ckpt65n_20150729, ctrb_darwin2_ckpt64y_20140622, ctrb_darwin2_ckpt65d_20140915, ctrb_darwin2_ckpt64t_20140202, ctrb_darwin2_ckpt66h_20170602, ctrb_darwin2_ckpt64i_20130622, ctrb_darwin2_ckpt64s_20140105, ctrb_darwin2_ckpt64x_20140524, ctrb_darwin2_ckpt64e_20130305, ctrb_darwin2_ckpt65x_20160612, ctrb_darwin2_ckpt66f_20170407, ctrb_darwin2_ckpt65g_20141120, ctrb_darwin2_ckpt65k_20150402, ctrb_darwin2_ckpt64w_20140502, ctrb_darwin2_ckpt66a_20161020, ctrb_darwin2_ckpt64g_20130503, ctrb_darwin2_ckpt64l_20130806, ctrb_darwin2_ckpt65f_20141014, ctrb_darwin2_ckpt64c_20130120, ctrb_darwin2_ckpt66b_20161219, ctrb_darwin2_ckpt64u_20140308, ctrb_darwin2_ckpt64j_20130704, ctrb_darwin2_ckpt65i_20150123, ctrb_darwin2_ckpt66j_20170815, ctrb_darwin2_ckpt65y_20160801, ctrb_darwin2_ckpt66c_20170121, ctrb_darwin2_ckpt65a_20140728, ctrb_darwin2_ckpt65b_20140812, ctrb_darwin2_ckpt65t_20160221, ctrb_darwin2_ckpt64p_20131118, ctrb_darwin2_ckpt64b_20121224, ctrb_darwin2_ckpt64d_20130219, ctrb_darwin2_ckpt66o_20180209, ctrb_darwin2_ckpt66e_20170314, ctrb_darwin2_ckpt64q_20131118, ctrb_darwin2_ckpt64p_20131024, ctrb_darwin2_ckpt65u_20160315, ctrb_darwin2_ckpt65r_20151221, ctrb_darwin2_ckpt66i_20170718, ctrb_darwin2_ckpt65c_20140830, ctrb_darwin2_ckpt66l_20171025, ctrb_darwin2_ckpt65h_20141217, ctrb_darwin2_ckpt66m_20171213, HEAD
Changes since 1.4: +18 -1 lines
File MIME type: text/plain 
o add diagnostics for chl:c, Ek and Ek/E
1 stephd 1.5 C $Header: /u/gcmpack/MITgcm_contrib/darwin2/pkg/darwin/SPECTRAL.h,v 1.4 2012/08/23 21:48:24 jahn Exp $
2 jahn 1.2 C $Name: $
3 jahn 1.1
4     C SPECTRAL.h
5     C description: spectral runtime parameters and fields
6    
7     C darwin_waves :: 'central' wavelengths of wavebands (nm)
8 jahn 1.3 C darwin_wavebands :: waveband boundaries (nm)
9     COMMON/SPECTRAL_PARAMS_R/darwin_waves, darwin_wavebands
10 jahn 1.1 _RL darwin_waves(tlam)
11 jahn 1.3 _RL darwin_wavebands(tlam+1)
12 jahn 1.1
13     C WtouEins :: W to uEin/s conversion factor
14     COMMON/darwin_oasim/ WtouEins
15     _RL WtouEins(tlam)
16    
17     C oasim_ed :: spectral direct downwelling irradiance at surface read from file
18     C oasim_es :: spectral diffuse downwelling irradiance at surface read from file
19     #ifdef OASIM
20     _RL oasim_ed(1-OLx:sNx+OLx,1-OLy:sNy+OLy,tlam,nSx, nSy)
21     _RL oasim_es(1-OLx:sNx+OLx,1-OLy:sNy+OLy,tlam,nSx, nSy)
22     COMMON /SPECTRAL_INPUT/ oasim_ed, oasim_es
23     #endif
24    
25     COMMON /SPECTRAL_OUPUT/
26 stephd 1.5 #ifdef DAR_DIAG_PARW
27     & PARwave,
28     #endif
29 jahn 1.1 #ifdef DAR_DIAG_IRR
30 jahn 1.4 & Edave,Esave,Euave,Estave,Eutave,
31 jahn 1.1 #endif
32 jahn 1.2 #ifdef DAR_DIAG_IRR_AMPS
33 jahn 1.4 & amp1ave,amp2ave,
34 jahn 1.2 #endif
35 jahn 1.1 #ifdef DAR_DIAG_ABSORP
36     & aave,
37     #endif
38     #ifdef DAR_DIAG_SCATTER
39     & btave,
40     & bbave,
41     #endif
42     #ifdef DAR_DIAG_PART_SCATTER
43     & apartave,
44     & btpartave,
45     & bbpartave,
46     #endif
47 stephd 1.5 #ifdef DAR_DIAG_EK
48     & Ek_nlave,
49     & EkoverE_nlave,
50     #endif
51 jahn 1.2 & rmudave
52 jahn 1.1
53 stephd 1.5 #ifdef DAR_DIAG_PARW
54     _RL PARwave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,tlam)
55     #endif
56    
57 jahn 1.1 #ifdef DAR_DIAG_IRR
58     _RL Edave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
59     _RL Esave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
60     _RL Euave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
61 jahn 1.4 _RL Estave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
62 jahn 1.1 _RL Eutave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
63     #endif
64 jahn 1.2 #ifdef DAR_DIAG_IRR_AMPS
65 jahn 1.4 _RL amp1ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
66     _RL amp2ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
67 jahn 1.2 #endif
68 jahn 1.1 #ifdef DAR_DIAG_ABSORP
69     _RL aave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
70     #endif
71     #ifdef DAR_DIAG_SCATTER
72     _RL btave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
73     _RL bbave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
74     #endif
75     #ifdef DAR_DIAG_PART_SCATTER
76     _RL apartave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
77     _RL bbpartave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
78     _RL btpartave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
79     #endif
80 stephd 1.5 #ifdef DAR_DIAG_EK
81     _RL Ek_nlave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax,
82     & tlam)
83     _RL EkoverE_nlave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,
84     & npmax,tlam)
85     #endif
86 jahn 1.2 _RL rmudave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
87 jahn 1.1
  ViewVC Help
Powered by ViewVC 1.1.22