/[MITgcm]/MITgcm/pkg/atm_ocn_coupler/cpl_read_params.F
ViewVC logotype

Contents of /MITgcm/pkg/atm_ocn_coupler/cpl_read_params.F

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

Revision 1.4 - (show annotations) (download)
Mon Dec 2 22:03:08 2013 UTC (10 years, 5 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint65, checkpoint65p, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e
Changes since 1.3: +28 -15 lines 
- move some input parameters from CPL_MAP2GRIDS.h to CPL_PARAMS.h
  (no need to include CPL_MAP2GRIDS.h in cpl_read_params.F anymore)
- report set-up to clog file (I/O unit now passed as input argument)
- check we don't go over RunOff map size (=ROsize) and skip reading
  grid-cell area if no RunOff map to set.
1 C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/cpl_read_params.F,v 1.3 2006/06/15 23:29:17 jmc Exp $
2 C $Name: $
3
4 #include "CPP_OPTIONS.h"
5
6 CBOP 0
7 C !ROUTINE: CPL_READ_PARAMS
8
9 C !INTERFACE:
10 SUBROUTINE CPL_READ_PARAMS( msgUnit )
11
12 C !DESCRIPTION:
13 C *==========================================================*
14 C | SUBROUTINE CPL_READ_PARAMS
15 C | o Read coupler and mapping parameters
16 C *==========================================================*
17
18 C !USES:
19 IMPLICIT NONE
20 C == Global variables ==
21 #include "CPL_PARAMS.h"
22
23 C !INPUT/OUTPUT PARAMETERS:
24 C msgUnit :: log-file I/O unit
25 INTEGER msgUnit
26
27 C !LOCAL VARIABLES:
28 CEOP
29
30 WRITE(msgUnit,'(2A)') 'CPL_READ_PARAMS: ',
31 & 'reading parameter file "data"'
32 OPEN(88, FILE='data', STATUS='OLD')
33 c READ(88,*) nCouplingSteps
34 READ(88,*)
35 READ(88,*) runOffMapSize
36 READ(88,'(A)') runOffMapFile
37 CLOSE(88)
38
39 WRITE(msgUnit,'(2A,I8)') 'CPL_READ_PARAMS: ',
40 & 'runOffMapSize=', runOffMapSize
41 WRITE(msgUnit,'(3A)') 'CPL_READ_PARAMS: ',
42 & 'runOffMapFile=', runOffMapFile
43
44 RETURN
45 END
  ViewVC Help
Powered by ViewVC 1.1.22