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	cnh	1.3	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	adcroft	1.1
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	heimbach	1.2
18	adcroft	1.1	#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