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

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

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

Revision 1.4 - (hide 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 heimbach 1.4 C $Header: /u/gcmpack/MITgcm/pkg/cost/cost_readparms.F,v 1.2.4.1 2002/04/08 20:10:38 heimbach Exp $
2 heimbach 1.1
3     #include "COST_CPPOPTIONS.h"
4    
5    
6 heimbach 1.3 subroutine cost_readparms( mythid )
7 heimbach 1.1
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 heimbach 1.2 & mult_test, mult_tracer,
73 heimbach 1.1 & 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 heimbach 1.2 mult_tracer = 0. _d 0
121 heimbach 1.1
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