/[MITgcm]/MITgcm/pkg/cost/cost_readparms.F
ViewVC logotype

Contents of /MITgcm/pkg/cost/cost_readparms.F

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

Revision 1.4 - (show annotations) (download)
Sat Jul 13 03:01:39 2002 UTC (21 years, 10 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint51k_post, checkpoint47e_post, checkpoint46l_post, checkpoint46g_pre, checkpoint47c_post, checkpoint50c_post, checkpoint46f_post, checkpoint48e_post, checkpoint50c_pre, checkpoint46b_post, checkpoint51o_pre, checkpoint51l_post, checkpoint48i_post, checkpoint46l_pre, checkpoint51, checkpoint50, checkpoint50d_post, checkpoint50b_pre, checkpoint51f_post, checkpoint48b_post, checkpoint51d_post, checkpoint48c_pre, checkpoint47d_pre, checkpoint51t_post, checkpoint51n_post, checkpoint51s_post, checkpoint47a_post, checkpoint48d_pre, checkpoint51j_post, checkpoint47i_post, checkpoint51n_pre, checkpoint47d_post, checkpoint46d_pre, checkpoint48d_post, checkpoint48f_post, checkpoint46j_pre, checkpoint51l_pre, checkpoint48h_post, checkpoint51q_post, checkpoint51b_pre, checkpoint46a_post, checkpoint47g_post, checkpoint46j_post, checkpoint51h_pre, checkpoint46k_post, checkpoint48a_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint47j_post, branch-exfmods-tag, branchpoint-genmake2, checkpoint46e_pre, checkpoint51r_post, checkpoint48c_post, checkpoint46b_pre, checkpoint51i_post, checkpoint51b_post, checkpoint51c_post, checkpoint46c_pre, checkpoint46, checkpoint47b_post, checkpoint46h_pre, checkpoint46m_post, checkpoint46a_pre, checkpoint50g_post, checkpoint46g_post, checkpoint50h_post, checkpoint50e_pre, checkpoint50i_post, checkpoint51i_pre, checkpoint47f_post, checkpoint50e_post, checkpoint46i_post, checkpoint46c_post, checkpoint50d_pre, checkpoint46e_post, checkpoint51e_post, checkpoint47, checkpoint48, checkpoint49, checkpoint46h_post, checkpoint51o_post, checkpoint51f_pre, checkpoint48g_post, checkpoint47h_post, checkpoint51g_post, checkpoint46d_post, checkpoint50b_post, checkpoint51m_post, checkpoint51a_post, checkpoint51p_post
Branch point for: branch-exfmods-curt, branch-genmake2, branch-nonh, tg2-branch, checkpoint51n_branch
Changes since 1.3: +1 -1 lines 
Merging from release1_p5:
o Compatible with new ctrl package
o added Eliassen Palm cost hooks
o modif's of existing cost functions
1 C $Header: /u/gcmpack/MITgcm/pkg/cost/cost_readparms.F,v 1.2.4.1 2002/04/08 20:10:38 heimbach Exp $
2
3 #include "COST_CPPOPTIONS.h"
4
5
6 subroutine cost_readparms( mythid )
7
8 c ==================================================================
9 c SUBROUTINE cost_readparms
10 c ==================================================================
11 c
12 c o This routine initialises the package cost.
13 c
14 c started: Ralf Giering 18-Jan-2001
15 c
16 c ==================================================================
17 c SUBROUTINE cost_readparms
18 c ==================================================================
19
20 implicit none
21
22 c == global variables ==
23
24 #include "EEPARAMS.h"
25 #include "SIZE.h"
26 #include "GRID.h"
27
28 #include "cost.h"
29
30 c == routine arguments ==
31
32 integer mythid
33
34 c == local variables ==
35
36 integer sststartdate1
37 integer sststartdate2
38 integer topexstartdate1
39 integer topexstartdate2
40 integer ersstartdate1
41 integer ersstartdate2
42
43 c == external functions ==
44
45 integer cal_IntMonths
46 external cal_IntMonths
47 integer cal_IntDays
48 external cal_IntDays
49
50 c == end of interface ==
51
52 c-- Read the namelist input.
53 namelist /cost_nml/
54 & data_errfile,
55 & tbarfile, sbarfile, psbarfile,
56 & using_topex,
57 & topexstartdate1, topexstartdate2,
58 & topexperiod, topexfile, topexmeanfile,
59 & using_ers,
60 & ersstartdate1, ersstartdate2,
61 & ersperiod, ersfile,
62 & ssh_errfile,
63 & sststartdate1, sststartdate2, sstdatfile,
64 & tdatfile, sdatfile,
65 & ctdtfile, ctdsfile,
66 & hflux_errfile, sflux_errfile,
67 & tauu_errfile, tauv_errfile,
68 & geoid_errfile, geoid_covariancefile,
69 & mult_hq, mult_hs, mult_tauu, mult_tauv,
70 & mult_hmean, mult_h, mult_temp, mult_salt,
71 & mult_sst, mult_atl, mult_ctdt, mult_ctds,
72 & mult_test, mult_tracer,
73 & iprec_cost, yftype_cost
74
75 _BEGIN_MASTER( myThid )
76
77 c-- Set default values.
78 data_errfile = ' '
79 tbarfile = ' '
80 sbarfile = ' '
81 psbarfile = ' '
82 using_topex = .false.
83 topexstartdate1 = 0
84 topexstartdate2 = 0
85 topexperiod = 0. _d 0
86 topexfile = ' '
87 topexmeanfile = ' '
88 using_ers = .false.
89 ersstartdate1 = 0
90 ersstartdate2 = 0
91 ersperiod = 0. _d 0
92 ersfile = ' '
93 ssh_errfile = ' '
94 sststartdate1 = 0
95 sststartdate2 = 0
96 sstdatfile = ' '
97 tdatfile = ' '
98 sdatfile = ' '
99 ctdtfile = ' '
100 ctdsfile = ' '
101 hflux_errfile = ' '
102 sflux_errfile = ' '
103 tauu_errfile = ' '
104 tauv_errfile = ' '
105 geoid_errfile = ' '
106 geoid_covariancefile = ' '
107 mult_hq = 0. _d 0
108 mult_hs = 0. _d 0
109 mult_tauu = 0. _d 0
110 mult_tauv = 0. _d 0
111 mult_hmean = 0. _d 0
112 mult_h = 0. _d 0
113 mult_temp = 0. _d 0
114 mult_salt = 0. _d 0
115 mult_sst = 0. _d 0
116 mult_atl = 0. _d 0
117 mult_ctdt = 0. _d 0
118 mult_ctds = 0. _d 0
119 mult_test = 0. _d 0
120 mult_tracer = 0. _d 0
121
122 c-- Check versions.
123
124 c-- Next, read the cost data file.
125 call nml_filter( 'data.cost', scrunit1, myThid )
126 if (scrunit1 .eq. 0) then
127 stop 'cost_readparms: reading namelist failed'
128 end if
129 read( scrunit1, nml = cost_nml )
130 close( scrunit1 )
131
132 call cost_Summary( mythid )
133
134 _END_MASTER( mythid )
135
136 _BARRIER
137
138 end
  ViewVC Help
Powered by ViewVC 1.1.22