/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_init_fixed.F
ViewVC logotype

Annotation of /MITgcm_contrib/darwin2/pkg/darwin/darwin_init_fixed.F

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


Revision 1.1 - (hide annotations) (download)
Wed Apr 13 18:56:24 2011 UTC (14 years, 3 months ago) by jahn
Branch: MAIN
CVS Tags: ctrb_darwin2_ckpt64k_20130723, ctrb_darwin2_ckpt63l_20120405, ctrb_darwin2_ckpt64h_20130528, ctrb_darwin2_ckpt62v_20110413, ctrb_darwin2_ckpt64m_20130820, ctrb_darwin2_ckpt64f_20130405, ctrb_darwin2_ckpt63f_20111201, ctrb_darwin2_ckpt64a_20121116, ctrb_darwin2_ckpt64n_20130826, ctrb_darwin2_ckpt64o_20131024, ctrb_darwin2_ckpt62y_20110526, ctrb_darwin2_ckpt64i_20130622, ctrb_darwin2_ckpt62x_20110513, ctrb_darwin2_ckpt62w_20110426, ctrb_darwin2_ckpt63o_20120629, ctrb_darwin2_ckpt64e_20130305, ctrb_darwin2_ckpt63c_20111011, ctrb_darwin2_ckpt63i_20120124, ctrb_darwin2_ckpt63m_20120506, ctrb_darwin2_ckpt63s_20120908, ctrb_darwin2_ckpt63e_20111107, ctrb_darwin2_ckpt63b_20110830, ctrb_darwin2_ckpt63j_20120217, ctrb_darwin2_ckpt63r_20120817, ctrb_darwin2_ckpt64g_20130503, ctrb_darwin2_ckpt64l_20130806, ctrb_darwin2_ckpt63g_20111220, ctrb_darwin2_ckpt64c_20130120, ctrb_darwin2_ckpt63a_20110804, ctrb_darwin2_ckpt64j_20130704, ctrb_darwin2_ckpt63h_20111230, ctrb_darwin2_ckpt63p_20120707, ctrb_darwin2_ckpt64p_20131118, ctrb_darwin2_ckpt63d_20111107, ctrb_darwin2_ckpt63q_20120731, ctrb_darwin2_ckpt63_20110728, ctrb_darwin2_ckpt64b_20121224, ctrb_darwin2_ckpt64d_20130219, ctrb_darwin2_ckpt64_20121012, ctrb_darwin2_ckpt64q_20131118, ctrb_darwin2_baseline, ctrb_darwin2_ckpt64p_20131024, ctrb_darwin2_ckpt63n_20120604, ctrb_darwin2_ckpt63k_20120317, ctrb_darwin2_ckpt62z_20110622
darwin2 initial checkin

1 jahn 1.1 C $Header$
2     C $Name$
3    
4     #include "DARWIN_OPTIONS.h"
5    
6     C !INTERFACE: ==========================================================
7     SUBROUTINE DARWIN_INIT_FIXED(myThid )
8    
9     C !DESCRIPTION:
10     C calls subroutines that initialized fixed variables for any tracer
11     C experiment
12    
13     C !USES: ===============================================================
14     IMPLICIT NONE
15     #include "SIZE.h"
16     #include "EEPARAMS.h"
17     #include "PARAMS.h"
18     #ifdef ALLOW_SPECTRAL
19     #include "SPECTRAL_SIZE.h"
20     #include "SPECTRAL_PARAMS.h"
21     #endif
22    
23     C !INPUT PARAMETERS: ===================================================
24     C myThid :: thread number
25     INTEGER myThid
26     CEOP
27    
28     #ifdef ALLOW_DARWIN
29    
30     C !LOCAL VARIABLES:
31     #ifdef ALLOW_SPECTRAL
32     INTEGER ilam
33     _RL planck, c, hc, oavo, hcoavo, rlamm
34     #endif
35    
36     #ifdef ALLOW_SPECTRAL
37     c Quanta conversion
38     planck = 6.6256 _d -34 !Plancks constant J sec
39     c = 2.998 _d 8 !speed of light m/sec
40     hc = 1.0/(planck*c)
41     oavo = 1.0/6.023 _d 23 ! 1/Avogadros number
42     hcoavo = hc*oavo
43     do ilam = 1,tlam
44     rlamm = darwin_waves(ilam)*1 _d -9 !lambda in m
45     WtouEins(ilam) = 1 _d 6*rlamm*hcoavo !Watts to uEin/s conversion
46     enddo
47     #endif
48    
49     #ifdef ALLOW_QUOTA
50     call QUOTA_INIT_FIXED(myThid)
51     #endif
52     #ifdef ALLOW_MONOD
53     call MONOD_INIT_FIXED(myThid)
54     #endif
55    
56     #endif /* ALLOW_DARWIN */
57    
58     RETURN
59     END

  ViewVC Help
Powered by ViewVC 1.1.22