/[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.5 - (show annotations) (download)
Thu Nov 6 22:03:49 2003 UTC (21 years, 8 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint52l_pre, hrcube4, hrcube5, checkpoint52d_pre, checkpoint52j_pre, checkpoint54d_post, checkpoint54e_post, checkpoint52l_post, checkpoint52k_post, checkpoint55, checkpoint54, checkpoint53, checkpoint52, checkpoint52f_post, checkpoint54f_post, checkpoint52i_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint55c_post, checkpoint52e_pre, checkpoint52e_post, checkpoint53d_post, checkpoint52b_pre, checkpoint54b_post, checkpoint52m_post, checkpoint52b_post, checkpoint52c_post, checkpoint52f_pre, checkpoint54a_pre, checkpoint53c_post, checkpoint54a_post, checkpoint55b_post, checkpoint53a_post, checkpoint52d_post, checkpoint53g_post, checkpoint52a_pre, checkpoint52i_post, checkpoint52h_pre, checkpoint53f_post, checkpoint52j_post, branch-netcdf, checkpoint52n_post, checkpoint53b_pre, checkpoint55a_post, checkpoint53b_post, checkpoint52a_post, ecco_c52_e35, checkpoint53d_pre, checkpoint54c_post, checkpoint51u_post
Branch point for: netcdf-sm0
Changes since 1.4: +2 -81 lines 
o merging from ecco-branch
o modularized cost package
  - ECCO-specific terms are now in pkg/ecco
  - cost package is driver
1 C $Header: /u/gcmpack/MITgcm/pkg/cost/cost_readparms.F,v 1.4 2002/07/13 03:01:39 heimbach Exp $
2
3 #include "COST_CPPOPTIONS.h"
4
5 subroutine cost_readparms( mythid )
6
7 c ==================================================================
8 c SUBROUTINE cost_readparms
9 c ==================================================================
10 c
11 c o This routine initialises the package cost.
12 c
13 c started: Ralf Giering 18-Jan-2001
14 c
15 c ==================================================================
16 c SUBROUTINE cost_readparms
17 c ==================================================================
18
19 implicit none
20
21 c == global variables ==
22
23 #include "EEPARAMS.h"
24 #include "SIZE.h"
25 #include "GRID.h"
26
27 #include "cost.h"
28
29 c == routine arguments ==
30 integer mythid
31
32 c == local variables ==
33
34 c == end of interface ==
35
36 c-- Read the namelist input.
37 namelist /cost_nml/
38 & mult_atl, mult_test, mult_tracer
39
40 _BEGIN_MASTER( myThid )
41
42 c-- Set default values.
43 mult_atl = 0. _d 0
44 mult_test = 0. _d 0
45 mult_tracer = 0. _d 0
46
47 c-- Next, read the cost data file.
48 call nml_filter( 'data.cost', scrunit1, myThid )
49 if (scrunit1 .eq. 0) then
50 stop 'cost_readparms: reading namelist failed'
51 end if
52 read( scrunit1, nml = cost_nml )
53 close( scrunit1 )
54
55 _END_MASTER( mythid )
56
57 _BARRIER
58
59 end
  ViewVC Help
Powered by ViewVC 1.1.22