/[MITgcm]/MITgcm/pkg/streamice/streamice_init_diagnostics.F
ViewVC logotype

Contents of /MITgcm/pkg/streamice/streamice_init_diagnostics.F

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

Revision 1.2 - (show annotations) (download)
Thu Apr 24 12:02:41 2014 UTC (10 years ago) by dgoldberg
Branch: MAIN
CVS Tags: checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64w, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint65, HEAD
Changes since 1.1: +29 -1 lines 
output basal stress and basal velocity as diagnostics
1 C $Header: /u/gcmpack/MITgcm/pkg/streamice/streamice_init_diagnostics.F,v 1.1 2013/06/12 21:30:22 dgoldberg Exp $
2 C $Name: $
3
4 #include "STREAMICE_OPTIONS.h"
5
6 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7 CBOP 0
8 C !ROUTINE: STREAMICE_INIT_FIXED
9
10 C !INTERFACE:
11 SUBROUTINE STREAMICE_INIT_DIAGNOSTICS( myThid )
12
13 C !DESCRIPTION:
14 C Initialize STREAMICE variables that are kept fixed during the run.
15
16 C !USES:
17 IMPLICIT NONE
18 #include "EEPARAMS.h"
19 #include "SIZE.h"
20 #include "PARAMS.h"
21 #include "STREAMICE.h"
22 #include "STREAMICE_CG.h"
23 #include "STREAMICE_BDRY.h"
24 #include "GRID.h"
25
26 INTEGER myThid
27
28 #ifdef ALLOW_STREAMICE
29
30 CHARACTER*(MAX_LEN_MBUF) msgBuf
31 #ifdef ALLOW_DIAGNOSTICS
32
33 C myThid :: my Thread Id number
34
35 INTEGER diagNum
36 INTEGER diagMate
37 CHARACTER*8 diagName
38 CHARACTER*16 diagCode
39 CHARACTER*16 diagUnits
40 CHARACTER*(80) diagTitle
41
42 diagName = 'SI_Uvel '
43 diagTitle = 'Ice stream x-velocity'
44 diagUnits = 'm/a '
45 diagCode = 'UZ L1 '
46 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
47 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
48
49 diagName = 'SI_Vvel '
50 diagTitle = 'Ice stream y-velocity'
51 diagUnits = 'm/a '
52 diagCode = 'VZ L1 '
53 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
54 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
55
56 diagName = 'SI_Thick'
57 diagTitle = 'Ice stream thickness'
58 diagUnits = 'm '
59 diagCode = 'SM L1 '
60 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
61 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
62
63 diagName = 'SI_area '
64 diagTitle = 'Ice stream cell area coverage'
65 diagUnits = 'm^2 '
66 diagCode = 'SM L1 '
67 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
68 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
69
70 diagName = 'SI_float'
71 diagTitle = 'Ice stream grounding ind'
72 diagUnits = 'none '
73 diagCode = 'SM L1 '
74 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
75 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
76
77 diagName = 'SI_hmask'
78 diagTitle = 'Ice stream thickness mask'
79 diagUnits = 'none '
80 diagCode = 'SM L1 '
81 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
82 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
83
84 diagName = 'SI_usurf'
85 diagTitle = 'Ice stream surface x-vel'
86 diagUnits = 'none '
87 diagCode = 'SM L1 '
88 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
89 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
90
91 diagName = 'SI_vsurf'
92 diagTitle = 'Ice stream surface y-vel'
93 diagUnits = 'none '
94 diagCode = 'SM L1 '
95 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
96 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
97
98 diagName = 'SI_ubase'
99 diagTitle = 'Ice stream basal x-vel'
100 diagUnits = 'none '
101 diagCode = 'SM L1 '
102 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
103 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
104
105 diagName = 'SI_vbase'
106 diagTitle = 'Ice stream basal y-vel'
107 diagUnits = 'none '
108 diagCode = 'SM L1 '
109 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
110 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
111
112 diagName = 'SI_taubx'
113 diagTitle = 'Ice stream basal x-stress'
114 diagUnits = 'none '
115 diagCode = 'SM L1 '
116 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
117 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
118
119 diagName = 'SI_tauby'
120 diagTitle = 'Ice stream basal y-stress'
121 diagUnits = 'none '
122 diagCode = 'SM L1 '
123 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
124 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
125
126 diagName = 'SI_selev'
127 diagTitle = 'Ice stream surface elev'
128 diagUnits = 'none '
129 diagCode = 'SM L1 '
130 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
131 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
132
133 diagName = 'SI2Dtrac'
134 diagTitle = 'Ice stream 2d tracer'
135 diagUnits = 'none '
136 diagCode = 'SM L1 '
137 CALL DIAGNOSTICS_ADDTOLIST( diagNum,
138 I diagName, diagCode, diagUnits, diagTitle, 0, myThid )
139
140 WRITE(msgBuf,'(A)') 'ADDED DIAGS TO LIST'
141 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
142 & SQUEEZE_RIGHT , 1)
143
144
145 #endif
146 #endif
147 RETURN
148 END
  ViewVC Help
Powered by ViewVC 1.1.22