model/src/get_offline_fields.F

C $Header: /u/gcmpack/models/MITgcmUV/model/src/get_offline_fields.F,v 1.4 1998/11/06 22:44:46 cnh Exp $

#include "CPP_OPTIONS.h"
 
CStartOfInterface
      SUBROUTINE GET_OFFLINE_FIELDS( myThid, fSuff )
C     /==========================================================\
C     | SUBROUTINE GET_OFFLINE_FIELDS                            |
C     | o Make ee support calls for loading data for offline     |
C     |   experiments.                                           |
C     \==========================================================/
      IMPLICIT NONE
 
C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GRID.h"
#include "CG2D.h"
#include "DYNVARS.h"
 
C     === Routine arguments ===
C     fSuff  - Suffix used to indicate which set of offline fields to load.
C     myThid - Thread no. that called this routine.
      CHARACTER*(*) fSuff
      INTEGER myThid
CEndOfInterface
      INTEGER  IFNBLNK
      INTEGER  ILNBLNK
      EXTERNAL IFNBLNK
      EXTERNAL ILNBLNK
 
C     === Local variables ===
C     msgBuf      - Error message buffer
C     filNam      - Parameter used to build file names.
C     I, Ilo, Ihi - Loop counter
C     iErr        - Error flag
      CHARACTER*(MAX_LEN_FNAM) filNam
      INTEGER I, Ilo, Ihi

C--   Build template file name
      Ilo = IFNBLNK(fSuff)
      Ihi = ILNBLNK(fSuff)
      Ilo = IFNBLNK(fSuff)
C     Note - Only the master thread writes to it filnam 
C            This presumes that only the master thread is going to do the
C            actual disk I/O.
      _BEGIN_MASTER(myThid)
      WRITE(filNam(2:),'(''_9yr_atlant_'',1024A)') 
     &  (fSuff(I:I),I=Ilo,Ihi)
      _END_MASTER(myThid)

C--   Call routine to load data
      filNam(1:1) = 'u'
      CALL READ_FIELD_XYZR8( 
     O                   uVel,
     I                   filNam, 'r4', myThid )
      filNam(1:1) = 'v'
      CALL READ_FIELD_XYZR8( 
     O                   vVel,
     I                   filNam, 'r4', myThid )
      filNam(1:1) = 'I'
C*P*  CALL READ_FIELD_XYZR8( 
C*P* O                   CINDEX,
C*P* I                   filNam, 'r4', myThid )

C  
      RETURN
      END
1	C $Header: /u/gcmpack/models/MITgcmUV/model/src/get_offline_fields.F,v 1.4 1998/11/06 22:44:46 cnh Exp $
2
3	#include "CPP_OPTIONS.h"
4
5	CStartOfInterface
6	SUBROUTINE GET_OFFLINE_FIELDS( myThid, fSuff )
7	C /==========================================================\
8	C \| SUBROUTINE GET_OFFLINE_FIELDS \|
9	C \| o Make ee support calls for loading data for offline \|
10	C \| experiments. \|
11	C \==========================================================/
12	IMPLICIT NONE
13
14	C === Global variables ===
15	#include "SIZE.h"
16	#include "EEPARAMS.h"
17	#include "PARAMS.h"
18	#include "GRID.h"
19	#include "CG2D.h"
20	#include "DYNVARS.h"
21
22	C === Routine arguments ===
23	C fSuff - Suffix used to indicate which set of offline fields to load.
24	C myThid - Thread no. that called this routine.
25	CHARACTER() fSuff
26	INTEGER myThid
27	CEndOfInterface
28	INTEGER IFNBLNK
29	INTEGER ILNBLNK
30	EXTERNAL IFNBLNK
31	EXTERNAL ILNBLNK
32
33	C === Local variables ===
34	C msgBuf - Error message buffer
35	C filNam - Parameter used to build file names.
36	C I, Ilo, Ihi - Loop counter
37	C iErr - Error flag
38	CHARACTER*(MAX_LEN_FNAM) filNam
39	INTEGER I, Ilo, Ihi
40
41	C-- Build template file name
42	Ilo = IFNBLNK(fSuff)
43	Ihi = ILNBLNK(fSuff)
44	Ilo = IFNBLNK(fSuff)
45	C Note - Only the master thread writes to it filnam
46	C This presumes that only the master thread is going to do the
47	C actual disk I/O.
48	_BEGIN_MASTER(myThid)
49	WRITE(filNam(2:),'(''_9yr_atlant_'',1024A)')
50	& (fSuff(I:I),I=Ilo,Ihi)
51	_END_MASTER(myThid)
52
53	C-- Call routine to load data
54	filNam(1:1) = 'u'
55	CALL READ_FIELD_XYZR8(
56	O uVel,
57	I filNam, 'r4', myThid )
58	filNam(1:1) = 'v'
59	CALL READ_FIELD_XYZR8(
60	O vVel,
61	I filNam, 'r4', myThid )
62	filNam(1:1) = 'I'
63	CP CALL READ_FIELD_XYZR8(
64	CP O CINDEX,
65	CP I filNam, 'r4', myThid )
66
67	C
68	RETURN
69	END