/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/streamice_dump.F
ViewVC logotype

Contents of /MITgcm_contrib/dgoldberg/streamice/streamice_dump.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.2 - (show annotations) (download)
Wed Aug 27 19:29:13 2014 UTC (10 years, 10 months ago) by dgoldberg
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +1 -1 lines
updating contrib streamice repo with latest files, and separated out convergence checks; and parameterised maximum iteration counts and interface w shelfice for coupling

1 C $Header: /u/gcmpack/MITgcm/pkg/streamice/streamice_dump.F,v 1.1 2013/06/12 21:30:22 dgoldberg 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

  ViewVC Help
Powered by ViewVC 1.1.22