pkg/darwin/darwin_init_fixed.F

C $Header$
C $Name$

#include "DARWIN_OPTIONS.h"

C !INTERFACE: ==========================================================
      SUBROUTINE DARWIN_INIT_FIXED(myThid )

C !DESCRIPTION:
C calls subroutines that initialized fixed variables for any tracer
C experiment

C !USES: ===============================================================
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#ifdef ALLOW_SPECTRAL
#include "SPECTRAL_SIZE.h"
#include "SPECTRAL_PARAMS.h"
#endif

C !INPUT PARAMETERS: ===================================================
C  myThid               :: thread number
      INTEGER myThid
CEOP

#ifdef ALLOW_DARWIN

C     !LOCAL VARIABLES:
#ifdef ALLOW_SPECTRAL
      INTEGER ilam
      _RL planck, c, hc, oavo, hcoavo, rlamm
#endif

#ifdef ALLOW_SPECTRAL
c   Quanta conversion
      planck = 6.6256 _d -34   !Plancks constant J sec
      c = 2.998 _d 8                 !speed of light m/sec
      hc = 1.0/(planck*c)
      oavo = 1.0/6.023 _d 23   ! 1/Avogadros number
      hcoavo = hc*oavo
      do ilam = 1,tlam
       rlamm = darwin_waves(ilam)*1 _d -9  !lambda in m
       WtouEins(ilam) = 1 _d 6*rlamm*hcoavo      !Watts to uEin/s conversion
      enddo
#endif

#ifdef ALLOW_QUOTA
      call QUOTA_INIT_FIXED(myThid)
#endif
#ifdef ALLOW_MONOD
      call MONOD_INIT_FIXED(myThid)
#endif

#endif /* ALLOW_DARWIN */

      RETURN
      END
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 6rlammhcoavo !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