pkg/cost/cost_readparms.F

C $Header: /u/gcmpack/MITgcm/pkg/cost/cost_readparms.F,v 1.5 2003/11/06 22:03:49 heimbach Exp $

#include "COST_CPPOPTIONS.h"

      subroutine cost_readparms( mythid )

c     ==================================================================
c     SUBROUTINE cost_readparms
c     ==================================================================
c
c     o This routine initialises the package cost.
c
c     started: Ralf Giering 18-Jan-2001
c
c     ==================================================================
c     SUBROUTINE cost_readparms
c     ==================================================================

      implicit none

c     == global variables ==

#include "EEPARAMS.h"
#include "SIZE.h"
#include "GRID.h"

#include "cost.h"

c     == routine arguments ==
      integer mythid

c     == local variables ==

c     == end of interface ==

c--   Read the namelist input.
      namelist /cost_nml/ 
     &                   mult_atl, mult_test, mult_tracer
     &                 , lastinterval

      _BEGIN_MASTER( myThid )

c--     Set default values.
        mult_atl              =      0. _d 0
        mult_test             =      0. _d 0
        mult_tracer           =      0. _d 0

c--     30*24*3600 = 2592000 = 1 model month
        lastinterval = 2592000.

c--     Next, read the cost data file.
        call nml_filter( 'data.cost', scrunit1, myThid )
        if (scrunit1 .eq. 0) then
           stop 'cost_readparms: reading namelist failed'
        end if
        read(  scrunit1, nml = cost_nml )
        close( scrunit1 )

      _END_MASTER( mythid )

      _BARRIER

      end
1	heimbach	1.6	C $Header: /u/gcmpack/MITgcm/pkg/cost/cost_readparms.F,v 1.5 2003/11/06 22:03:49 heimbach Exp $
2	heimbach	1.1
3			#include "COST_CPPOPTIONS.h"
4
5	heimbach	1.3	subroutine cost_readparms( mythid )
6	heimbach	1.1
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	heimbach	1.5	& mult_atl, mult_test, mult_tracer
39	heimbach	1.6	& , lastinterval
40	heimbach	1.1
41			_BEGIN_MASTER( myThid )
42
43			c-- Set default values.
44			mult_atl = 0. _d 0
45			mult_test = 0. _d 0
46	heimbach	1.2	mult_tracer = 0. _d 0
47	heimbach	1.1
48	heimbach	1.6	c-- 30243600 = 2592000 = 1 model month
49			lastinterval = 2592000.
50
51	heimbach	1.1	c-- Next, read the cost data file.
52			call nml_filter( 'data.cost', scrunit1, myThid )
53			if (scrunit1 .eq. 0) then
54			stop 'cost_readparms: reading namelist failed'
55			end if
56			read( scrunit1, nml = cost_nml )
57			close( scrunit1 )
58
59			_END_MASTER( mythid )
60
61			_BARRIER
62
63			end