pkg/kpp/kpp_open_diags.F

C $Header: $

#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: $
2
3	#include "KPP_OPTIONS.h"
4
5	SUBROUTINE KPP_OPEN_DIAGS( myThid )
6	C /==========================================================\
7	C \| SUBROUTINE KPP_OPEN_DIAGS \|
8	C \| o Initialize I/O variables for diagnostics \|
9	C \==========================================================/
10	IMPLICIT NONE
11
12	C === Global variables ===
13	#include "SIZE.h"
14	#include "EEPARAMS.h"
15	#include "PARAMS.h"
16	#include "KPP_PARAMS.h"
17	#include "KPP_DIAGS.h"
18
19	C == Routine arguments ==
20	C myThid - Number of this instance of INI_FORCING
21	INTEGER myThid
22
23	#ifdef ALLOW_KPP
24
25	C == Local variables ==
26
27	_BEGIN_MASTER( myThid )
28
29	C Initialize record numbers in KPP_DIAGS
30	kpp_drctrec=1
31	#ifdef INCLUDE_DIAGNOSTICS_INTERFACE_CODE
32	kpp_drctrecTave=1
33	#endif
34
35	_END_MASTER( myThid )
36	_BARRIER
37
38	#endif /* ALLOW_KPP */
39
40	RETURN
41	END