/[MITgcm]/MITgcm/pkg/matrix/matrix_readparms.F
ViewVC logotype

Contents of /MITgcm/pkg/matrix/matrix_readparms.F

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

Revision 1.3 - (show annotations) (download)
Mon Nov 5 18:58:00 2007 UTC (16 years, 6 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint63a, checkpoint60, checkpoint61, checkpoint62, checkpoint63, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59k, checkpoint59j, checkpoint62c, checkpoint62b, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62z, checkpoint62y, checkpoint62x, checkpoint61f, checkpoint61g, checkpoint61d, checkpoint61e, checkpoint61b, checkpoint61c, checkpoint61a, checkpoint61n, checkpoint61o, checkpoint61l, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61v, checkpoint61w, checkpoint61t, checkpoint61u, checkpoint61r, checkpoint61s, checkpoint61p, checkpoint61q, checkpoint61z, checkpoint61x, checkpoint61y
Changes since 1.2: +6 -5 lines 
split PTRACERS.h in 2 header files: PTRACERS_FIELDS.h & PTRACERS_PARAMS
 declare Namelist in matrix_readparms.F (was previously in MATRIX.h)
1 C $Header: /u/gcmpack/MITgcm/pkg/matrix/matrix_readparms.F,v 1.2 2005/04/19 18:44:50 edhill Exp $
2 C $Name: $
3
4 #include "PACKAGES_CONFIG.h"
5 #include "CPP_OPTIONS.h"
6
7 C !ROUTINE: MATRIX_READPARMS
8
9 SUBROUTINE MATRIX_READPARMS( myThid )
10
11 C !DESCRIPTION:
12 C Initialize MATRIX parameters, read in data.matrix
13
14 IMPLICIT NONE
15 #include "SIZE.h"
16 #include "EEPARAMS.h"
17 #include "PTRACERS_SIZE.h"
18 #include "MATRIX.h"
19
20 C !INPUT PARAMETERS:
21 C myThid :: thread number
22 INTEGER myThid
23
24 C !OUTPUT PARAMETERS:
25 C none
26 C !LOCAL VARIABLES:
27 C iUnit :: unit number for I/O
28 C msgBuf :: message buffer
29 INTEGER iUnit
30 CHARACTER*(MAX_LEN_MBUF) msgBuf
31
32 #ifdef ALLOW_MATRIX
33 C Open and read the data.matrix file
34
35 NAMELIST /MATRIX_PARM01/ expMatrixWriteTime, impMatrixWriteTime
36
37 expMatrixWriteTime = 10. _d 10
38 impMatrixWriteTime = 10. _d 10
39
40 _BEGIN_MASTER(myThid)
41 WRITE(msgBuf,'(A)') ' MATRIX_READPARMS: opening data.matrix'
42 CALL PRINT_MESSAGE(msgBuf, standardMessageUnit,
43 & SQUEEZE_RIGHT , 1)
44 CALL OPEN_COPY_DATA_FILE(
45 I 'data.matrix', 'MATRIX_READPARMS',
46 O iUnit,
47 I myThid )
48 READ(UNIT=iUnit,NML=MATRIX_PARM01)
49 WRITE(msgBuf,'(A)')
50 & ' MATRIX_READPARMS: finished reading data.matrix'
51 CALL PRINT_MESSAGE(msgBuf, standardMessageUnit,
52 & SQUEEZE_RIGHT , 1)
53
54 C Close the open data file
55 CLOSE(iUnit)
56 _END_MASTER(myThid)
57
58 C Everyone else must wait for the parameters to be loaded
59 _BARRIER
60
61 #endif /* ALLOW_MATRIX */
62 RETURN
63 END
  ViewVC Help
Powered by ViewVC 1.1.22