/[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.2 - (hide annotations) (download)
Wed Dec 4 21:21:32 2013 UTC (11 years, 7 months ago) by jahn
Branch: MAIN
Changes since 1.1: +6 -2 lines
clean up multi-threading directives

1 jahn 1.2 C $Header: /u/gcmpack/MITgcm_contrib/darwin2/pkg/darwin/darwin_init_fixed.F,v 1.1 2011/04/13 18:56:24 jahn Exp $
2     C $Name: $
3 jahn 1.1
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 jahn 1.2 _BEGIN_MASTER(myThid)
37    
38 jahn 1.1 #ifdef ALLOW_SPECTRAL
39     c Quanta conversion
40     planck = 6.6256 _d -34 !Plancks constant J sec
41     c = 2.998 _d 8 !speed of light m/sec
42     hc = 1.0/(planck*c)
43     oavo = 1.0/6.023 _d 23 ! 1/Avogadros number
44     hcoavo = hc*oavo
45     do ilam = 1,tlam
46     rlamm = darwin_waves(ilam)*1 _d -9 !lambda in m
47     WtouEins(ilam) = 1 _d 6*rlamm*hcoavo !Watts to uEin/s conversion
48     enddo
49     #endif
50    
51 jahn 1.2 _END_MASTER(myThid)
52    
53 jahn 1.1 #ifdef ALLOW_QUOTA
54     call QUOTA_INIT_FIXED(myThid)
55     #endif
56     #ifdef ALLOW_MONOD
57     call MONOD_INIT_FIXED(myThid)
58     #endif
59    
60     #endif /* ALLOW_DARWIN */
61    
62     RETURN
63     END

  ViewVC Help
Powered by ViewVC 1.1.22