1 |
! $Header: /u/gcmpack/MITgcm/pkg/atm_phys/gcm_params_mod.F90,v 1.1 2013/05/08 22:14:14 jmc Exp $ |
2 |
! $Name: $ |
3 |
|
4 |
module gcm_params_mod |
5 |
|
6 |
!use fms_mod, only: write_version_number |
7 |
|
8 |
implicit none |
9 |
private |
10 |
|
11 |
! ---- public interfaces ---- |
12 |
|
13 |
real, public :: gcm_unset_RS = 0. |
14 |
real, public :: gcm_unset_RL = 0. |
15 |
integer, public :: gcm_unset_I = 0 |
16 |
integer, public, parameter :: gcm_LEN_MBUF = 512 |
17 |
integer, public, parameter :: gcm_LEN_FNAM = 512 |
18 |
integer, public, parameter :: gcm_LEN_PREC = 200 |
19 |
character*1, public :: gcm_SQZ_R = ' ' |
20 |
character*1, public :: gcm_SQZ_L = ' ' |
21 |
character*1, public :: gcm_SQZ_B = ' ' |
22 |
integer, public :: gcm_precFloat32 = 0 |
23 |
integer, public :: gcm_precFloat64 = 0 |
24 |
integer, public :: gcm_debLev0 = 0 |
25 |
integer, public :: gcm_debLevA = 0 |
26 |
integer, public :: gcm_debLevB = 0 |
27 |
integer, public :: gcm_debLevC = 0 |
28 |
integer, public :: gcm_debLevD = 0 |
29 |
integer, public :: gcm_debLevE = 0 |
30 |
integer, public :: gcm_stdMsgUnit = 0 |
31 |
integer, public :: gcm_errMsgUnit = 0 |
32 |
integer, public :: gcm_debugLevel = 0 |
33 |
logical, public :: gcm_debugMode = .FALSE. |
34 |
|
35 |
public gcm_params_init |
36 |
|
37 |
contains |
38 |
|
39 |
! <SUBROUTINE NAME="gcm_params_init"> |
40 |
|
41 |
! <OVERVIEW> |
42 |
! Initialization routine. The purpose of this routine |
43 |
! is initialize the GCM PARAMS module from EEPARAMS.h & PARAMS.h |
44 |
! commom bloc values which are passed as argument to this routine. |
45 |
! </OVERVIEW> |
46 |
! <DESCRIPTION> |
47 |
! </DESCRIPTION> |
48 |
! <TEMPLATE> |
49 |
! call gcm_params_init( ... ) |
50 |
! </TEMPLATE> |
51 |
|
52 |
subroutine gcm_params_init( & |
53 |
inp_unset_RS, inp_unset_RL, inp_unset_I, & |
54 |
! inp_LEN_MBUF, inp_LEN_FNAM, inp_LEN_PREC, & |
55 |
inp_SQZ_R, inp_SQZ_L, inp_SQZ_B, & |
56 |
inp_precFloat32, inp_precFloat64, & |
57 |
inp_debLev0, inp_debLevA, inp_debLevB, & |
58 |
inp_debLevC, inp_debLevD, inp_debLevE, & |
59 |
inp_stdMsgUnit, inp_errMsgUnit, & |
60 |
inp_debugLevel, inp_debugMode, & |
61 |
myThid ) |
62 |
|
63 |
#ifdef LET_RS_BE_REAL4 |
64 |
real*4, intent(in) :: inp_unset_RS |
65 |
#else |
66 |
real*8, intent(in) :: inp_unset_RS |
67 |
#endif |
68 |
real, intent(in) :: inp_unset_RL |
69 |
integer, intent(in) :: inp_unset_I |
70 |
! integer, intent(in) :: inp_LEN_MBUF |
71 |
! integer, intent(in) :: inp_LEN_FNAM |
72 |
! integer, intent(in) :: inp_LEN_PREC |
73 |
character*1, intent(in) :: inp_SQZ_R |
74 |
character*1, intent(in) :: inp_SQZ_L |
75 |
character*1, intent(in) :: inp_SQZ_B |
76 |
integer, intent(in) :: inp_precFloat32 |
77 |
integer, intent(in) :: inp_precFloat64 |
78 |
integer, intent(in) :: inp_debLev0 |
79 |
integer, intent(in) :: inp_debLevA |
80 |
integer, intent(in) :: inp_debLevB |
81 |
integer, intent(in) :: inp_debLevC |
82 |
integer, intent(in) :: inp_debLevD |
83 |
integer, intent(in) :: inp_debLevE |
84 |
integer, intent(in) :: inp_stdMsgUnit |
85 |
integer, intent(in) :: inp_errMsgUnit |
86 |
integer, intent(in) :: inp_debugLevel |
87 |
logical, intent(in) :: inp_debugMode |
88 |
|
89 |
integer, intent(in) :: myThid |
90 |
|
91 |
gcm_unset_RS = inp_unset_RS |
92 |
gcm_unset_RL = inp_unset_RL |
93 |
gcm_unset_I = inp_unset_I |
94 |
! gcm_LEN_MBUF = inp_LEN_MBUF |
95 |
! gcm_LEN_FNAM = inp_LEN_FNAM |
96 |
! gcm_LEN_PREC = inp_LEN_PREC |
97 |
gcm_SQZ_R = inp_SQZ_R |
98 |
gcm_SQZ_L = inp_SQZ_L |
99 |
gcm_SQZ_B = inp_SQZ_B |
100 |
gcm_precFloat32 = inp_precFloat32 |
101 |
gcm_precFloat64 = inp_precFloat64 |
102 |
gcm_debLev0 = inp_debLev0 |
103 |
gcm_debLevA = inp_debLevA |
104 |
gcm_debLevB = inp_debLevB |
105 |
gcm_debLevB = inp_debLevC |
106 |
gcm_debLevD = inp_debLevD |
107 |
gcm_debLevE = inp_debLevE |
108 |
gcm_stdMsgUnit = inp_stdMsgUnit |
109 |
gcm_errMsgUnit = inp_errMsgUnit |
110 |
gcm_debugLevel = inp_debugLevel |
111 |
gcm_debugMode = inp_debugMode |
112 |
|
113 |
end subroutine gcm_params_init |
114 |
! </SUBROUTINE> |
115 |
|
116 |
!----------------------------------------------------------------------- |
117 |
|
118 |
end module gcm_params_mod |