pkg/kpp/kpp_open_diags.F

C $Header: /u/gcmpack/models/MITgcmUV/pkg/kpp/kpp_open_diags.F,v 1.2 2001/01/29 20:09:23 heimbach Exp $
C $Name: $

#include "KPP_OPTIONS.h"

      SUBROUTINE KPP_OPEN_DIAGS( myThid )
C     /==========================================================\
C     | SUBROUTINE KPP_OPEN_DIAGS                                |
C     | o Initialize I/O variables for diagnostics               |
C     \==========================================================/
      IMPLICIT NONE

C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

#include "KPP_PARAMS.h"
#include "KPP_DIAGS.h"

C     == Routine arguments ==
C     myThid -  Number of this instance of INI_FORCING
      INTEGER myThid

#ifdef ALLOW_KPP

C     == Local variables ==

      _BEGIN_MASTER( myThid )

C     Initialize record numbers in KPP_DIAGS
      kpp_drctrec=1
#ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE
      kpp_drctrecTave=1
#endif

      _END_MASTER( myThid )
      _BARRIER

#endif /* ALLOW_KPP */

      RETURN
      END
1	C $Header: /u/gcmpack/models/MITgcmUV/pkg/kpp/kpp_open_diags.F,v 1.2 2001/01/29 20:09:23 heimbach Exp $
2	C $Name: $
3
4	#include "KPP_OPTIONS.h"
5
6	SUBROUTINE KPP_OPEN_DIAGS( myThid )
7	C /==========================================================\
8	C \| SUBROUTINE KPP_OPEN_DIAGS \|
9	C \| o Initialize I/O variables for diagnostics \|
10	C \==========================================================/
11	IMPLICIT NONE
12
13	C === Global variables ===
14	#include "SIZE.h"
15	#include "EEPARAMS.h"
16	#include "PARAMS.h"
17
18	#include "KPP_PARAMS.h"
19	#include "KPP_DIAGS.h"
20
21	C == Routine arguments ==
22	C myThid - Number of this instance of INI_FORCING
23	INTEGER myThid
24
25	#ifdef ALLOW_KPP
26
27	C == Local variables ==
28
29	_BEGIN_MASTER( myThid )
30
31	C Initialize record numbers in KPP_DIAGS
32	kpp_drctrec=1
33	#ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE
34	kpp_drctrecTave=1
35	#endif
36
37	_END_MASTER( myThid )
38	_BARRIER
39
40	#endif /* ALLOW_KPP */
41
42	RETURN
43	END