1 |
C $Header: /u/gcmpack/MITgcm/pkg/gchem/gchem_readparms.F,v 1.5 2004/11/19 20:17:48 mlosch Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#include "GCHEM_OPTIONS.h" |
5 |
|
6 |
CBOP |
7 |
C !ROUTINE: GCHEM_READPARMS |
8 |
|
9 |
C !INTERFACE: ========================================================== |
10 |
SUBROUTINE GCHEM_READPARMS( myThid ) |
11 |
|
12 |
C !DESCRIPTION: |
13 |
C Initialize GCHEM parameters, read in data.gchem |
14 |
|
15 |
C !USES: =============================================================== |
16 |
IMPLICIT NONE |
17 |
#include "SIZE.h" |
18 |
#include "EEPARAMS.h" |
19 |
#include "GCHEM.h" |
20 |
|
21 |
C !INPUT PARAMETERS: =================================================== |
22 |
C myThid :: thread number |
23 |
INTEGER myThid |
24 |
|
25 |
C !OUTPUT PARAMETERS: ================================================== |
26 |
C none |
27 |
|
28 |
#ifdef ALLOW_GCHEM |
29 |
|
30 |
C !LOCAL VARIABLES: ==================================================== |
31 |
C iTracer :: loop indices |
32 |
C iUnit :: unit number for I/O |
33 |
C msgBuf :: message buffer |
34 |
INTEGER iTracer |
35 |
INTEGER iUnit |
36 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
37 |
CEOP |
38 |
|
39 |
C Set defaults values for parameters in GCHEM.h |
40 |
tIter0=0 |
41 |
nsubtime=1 |
42 |
windFile=' ' |
43 |
atmospFile=' ' |
44 |
IceFile=' ' |
45 |
IronFile=' ' |
46 |
SilicaFile=' ' |
47 |
|
48 |
|
49 |
C Open and read the data.ptracers file |
50 |
_BEGIN_MASTER(myThid) |
51 |
WRITE(msgBuf,'(A)') ' GCHEM_READPARMS: opening data.gchem' |
52 |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
53 |
& SQUEEZE_RIGHT , 1) |
54 |
CALL OPEN_COPY_DATA_FILE( |
55 |
I 'data.gchem', 'GCHEM_PARM01', |
56 |
O iUnit, |
57 |
I myThid ) |
58 |
READ(UNIT=iUnit,NML=GCHEM_PARM01) |
59 |
WRITE(msgBuf,'(A)') |
60 |
& ' GCHEM_READPARMS: finished reading data.gchem' |
61 |
CALL PRINT_MESSAGE(msgBuf, standardMessageUnit, |
62 |
& SQUEEZE_RIGHT , 1) |
63 |
|
64 |
C Close the open data file |
65 |
CLOSE(iUnit) |
66 |
_END_MASTER(myThid) |
67 |
|
68 |
C Everyone else must wait for the parameters to be loaded |
69 |
_BARRIER |
70 |
|
71 |
#endif /* ALLOW_GCHEM */ |
72 |
|
73 |
RETURN |
74 |
END |