dgoldberg/streamice/streamice_dump.F

C $Header: /u/gcmpack/MITgcm/pkg/streamice/streamice_ad_dump.F,v 1.6 2009/08/27 18:00:01 jmc Exp $
C $Name:  $

#include "AD_CONFIG.h"
#include "PACKAGES_CONFIG.h"
#include "STREAMICE_OPTIONS.h"

CBOP
C     !ROUTINE: streamice_dump
C     !INTERFACE:
      subroutine streamice_dump( mytime, myiter, myThid )

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | SUBROUTINE streamice_dump                          |
C     *==========================================================*
C     \ev

C     !USES:
      IMPLICIT NONE

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

      LOGICAL  DIFFERENT_MULTIPLE
      EXTERNAL DIFFERENT_MULTIPLE
      INTEGER  IO_ERRCOUNT
      EXTERNAL IO_ERRCOUNT

C     !INPUT/OUTPUT PARAMETERS:
C     == Routine arguments ==
C     myIter - iteration counter for this thread
C     myTime - time counter for this thread
C     myThid - Thread number for this instance of the routine.
      integer myThid
      integer myiter
      _RL     mytime

#if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_ADMTLM))

C     !LOCAL VARIABLES:
c     == local variables ==
C     suff - Hold suffix part of a filename
C     beginIOErrCount - Begin and end IO error counts
C     endIOErrCount
C     msgBuf - Error message buffer
      CHARACTER*(MAX_LEN_FNAM) suff
      INTEGER beginIOErrCount
      INTEGER endIOErrCount
      CHARACTER*(MAX_LEN_MBUF) msgBuf

c     == end of interface ==
CEOP


#endif /* ALLOW_ADJOINT_RUN */

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/streamice/streamice_ad_dump.F,v 1.6 2009/08/27 18:00:01 jmc Exp $
2	C $Name: $
3
4	#include "AD_CONFIG.h"
5	#include "PACKAGES_CONFIG.h"
6	#include "STREAMICE_OPTIONS.h"
7
8	CBOP
9	C !ROUTINE: streamice_dump
10	C !INTERFACE:
11	subroutine streamice_dump( mytime, myiter, myThid )
12
13	C !DESCRIPTION: \bv
14	C ==========================================================
15	C \| SUBROUTINE streamice_dump \|
16	C ==========================================================
17	C \ev
18
19	C !USES:
20	IMPLICIT NONE
21
22	C == Global variables ===
23	#include "SIZE.h"
24	#include "EEPARAMS.h"
25	#include "PARAMS.h"
26	#include "STREAMICE.h"
27	#include "GRID.h"
28
29	LOGICAL DIFFERENT_MULTIPLE
30	EXTERNAL DIFFERENT_MULTIPLE
31	INTEGER IO_ERRCOUNT
32	EXTERNAL IO_ERRCOUNT
33
34	C !INPUT/OUTPUT PARAMETERS:
35	C == Routine arguments ==
36	C myIter - iteration counter for this thread
37	C myTime - time counter for this thread
38	C myThid - Thread number for this instance of the routine.
39	integer myThid
40	integer myiter
41	_RL mytime
42
43	#if (defined (ALLOW_ADJOINT_RUN) \|\| defined (ALLOW_ADMTLM))
44
45	C !LOCAL VARIABLES:
46	c == local variables ==
47	C suff - Hold suffix part of a filename
48	C beginIOErrCount - Begin and end IO error counts
49	C endIOErrCount
50	C msgBuf - Error message buffer
51	CHARACTER*(MAX_LEN_FNAM) suff
52	INTEGER beginIOErrCount
53	INTEGER endIOErrCount
54	CHARACTER*(MAX_LEN_MBUF) msgBuf
55
56	c == end of interface ==
57	CEOP
58
59
60	#endif /* ALLOW_ADJOINT_RUN */
61
62	RETURN
63	END