pkg/offline/offline_readparms.F


#include "CPP_OPTIONS.h"
#include "OFFLINE_OPTIONS.h"

      SUBROUTINE OFFLINE_READPARMS( myThid )
C     /==========================================================\
C     | SUBROUTINE OFFLINE_READPARMS                                 |
C     | o Routine to initialize OFFLINE variables and constants.     |
C     |==========================================================|
C     | Initialize OFFLINE    parameters, read in data.off          |
C     \==========================================================/
      IMPLICIT NONE

C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GRID.h"
#ifdef ALLOW_OFFLINE
#include "OFFLINE.h"
#endif

C     === Routine arguments ===
      INTEGER myThid

#ifdef ALLOW_OFFLINE    
C--   Bulk Formula parameter
      NAMELIST /OFFLINE_PARM01/
     &         UvelFile, VvelFile, WvelFile, ThetFile,
     &         SaltFile, ConvFile, GMwxFile, GMwyFile,
     &         GMwzFile, HfluxFile, SfluxFile, KPP_DiffSFile,
     &         KPP_ghatFile

      NAMELIST /OFFLINE_PARM02/
     &         offlineIter0, deltaToffline, offlineForcingPeriod, 
     &         offlineForcingCycle

C     === Local variables ===
C     msgBuf      - Informational/error meesage buffer
C     iUnit       - Work variable for IO unit number
      CHARACTER*(MAX_LEN_MBUF) msgBuf
      INTEGER iUnit

      _BEGIN_MASTER(myThid)

      WRITE(msgBuf,'(A)') ' OFFLINE_READPARMS: opening data.off'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                    SQUEEZE_RIGHT , 1)
    

      CALL OPEN_COPY_DATA_FILE(
     I                          'data.off', 'OFFLINE_READPARMS',
     O                          iUnit,
     I                          myThid )

C--   Default values 
      UvelFile=' '
      VvelFile=' '
      WvelFile=' '
      ThetFile=' '
      SaltFile='  '
      ConvFile=' '
      GMwxFile=' '
      GMwyFile=' '
      GMwzFile=' ' 
      HFluxFile=' '
      SFluxFile=' '
      KPP_DiffSFile=' '
      KPP_ghatFile=' '

C--   Read parameters from open data file
      READ(UNIT=iUnit,NML=OFFLINE_PARM01)

      deltaToffline=deltaTclock
      offlineIter0=nIter0
      offlineForcingPeriod=2592000.
      offlineForcingCycle=31104000.

     
C--   Read parameters from open data file
      READ(UNIT=iUnit,NML=OFFLINE_PARM02)

      WRITE(msgBuf,'(A)')
     &      ' OFFLINE_READPARMS: finished reading data.off'
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                    SQUEEZE_RIGHT , 1)

C--   Close the open data file
      CLOSE(iUnit)
      _END_MASTER(myThid)

C--   Everyone else must wait for the parameters to be loaded
      _BARRIER


#endif /* ALLOW_OFFLINE */

      return
      end
1
2	#include "CPP_OPTIONS.h"
3	#include "OFFLINE_OPTIONS.h"
4
5	SUBROUTINE OFFLINE_READPARMS( myThid )
6	C /==========================================================\
7	C \| SUBROUTINE OFFLINE_READPARMS \|
8	C \| o Routine to initialize OFFLINE variables and constants. \|
9	C \|==========================================================\|
10	C \| Initialize OFFLINE parameters, read in data.off \|
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	#ifdef ALLOW_OFFLINE
20	#include "OFFLINE.h"
21	#endif
22
23	C === Routine arguments ===
24	INTEGER myThid
25
26	#ifdef ALLOW_OFFLINE
27	C-- Bulk Formula parameter
28	NAMELIST /OFFLINE_PARM01/
29	& UvelFile, VvelFile, WvelFile, ThetFile,
30	& SaltFile, ConvFile, GMwxFile, GMwyFile,
31	& GMwzFile, HfluxFile, SfluxFile, KPP_DiffSFile,
32	& KPP_ghatFile
33
34	NAMELIST /OFFLINE_PARM02/
35	& offlineIter0, deltaToffline, offlineForcingPeriod,
36	& offlineForcingCycle
37
38	C === Local variables ===
39	C msgBuf - Informational/error meesage buffer
40	C iUnit - Work variable for IO unit number
41	CHARACTER*(MAX_LEN_MBUF) msgBuf
42	INTEGER iUnit
43
44	_BEGIN_MASTER(myThid)
45
46	WRITE(msgBuf,'(A)') ' OFFLINE_READPARMS: opening data.off'
47	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
48	& SQUEEZE_RIGHT , 1)
49
50
51	CALL OPEN_COPY_DATA_FILE(
52	I 'data.off', 'OFFLINE_READPARMS',
53	O iUnit,
54	I myThid )
55
56	C-- Default values
57	UvelFile=' '
58	VvelFile=' '
59	WvelFile=' '
60	ThetFile=' '
61	SaltFile=' '
62	ConvFile=' '
63	GMwxFile=' '
64	GMwyFile=' '
65	GMwzFile=' '
66	HFluxFile=' '
67	SFluxFile=' '
68	KPP_DiffSFile=' '
69	KPP_ghatFile=' '
70
71	C-- Read parameters from open data file
72	READ(UNIT=iUnit,NML=OFFLINE_PARM01)
73
74	deltaToffline=deltaTclock
75	offlineIter0=nIter0
76	offlineForcingPeriod=2592000.
77	offlineForcingCycle=31104000.
78
79
80	C-- Read parameters from open data file
81	READ(UNIT=iUnit,NML=OFFLINE_PARM02)
82
83	WRITE(msgBuf,'(A)')
84	& ' OFFLINE_READPARMS: finished reading data.off'
85	CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
86	& SQUEEZE_RIGHT , 1)
87
88	C-- Close the open data file
89	CLOSE(iUnit)
90	_END_MASTER(myThid)
91
92	C-- Everyone else must wait for the parameters to be loaded
93	_BARRIER
94
95
96	#endif /* ALLOW_OFFLINE */
97
98	return
99	end