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 |