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

Annotation of /MITgcm_contrib/dgoldberg/streamice/streamice_diagnostics_state.F

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


Revision 1.2 - (hide annotations) (download)
Fri Apr 20 14:08:33 2012 UTC (13 years, 3 months ago) by dgoldberg
Branch: MAIN
Changes since 1.1: +3 -1 lines
change to include thickness mask array in diagnostics

1 heimbach 1.1
2    
3     #include "STREAMICE_OPTIONS.h"
4    
5     C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
6    
7     CBOP
8     SUBROUTINE STREAMICE_DIAGNOSTICS_STATE( myTime, myIter, myThid )
9    
10     C /============================================================\
11     C | SUBROUTINE |
12     C | o |
13     C |============================================================|
14     C | |
15     C \============================================================/
16     IMPLICIT NONE
17    
18     C === Global variables ===
19     #include "SIZE.h"
20     #include "EEPARAMS.h"
21     #include "PARAMS.h"
22     #include "STREAMICE.h"
23    
24     _RL mytime
25     INTEGER myIter, myThid
26    
27     #ifdef ALLOW_STREAMICE
28    
29     #ifdef ALLOW_DIAGNOSTICS
30    
31    
32    
33    
34     IF ( useDiagnostics ) THEN
35     PRINT *, "CALLING FILL DIAGNOSTICS"
36     CALL DIAGNOSTICS_FILL(U_streamice,'SI_Uvel ',
37     & 0,1,0,1,1,myThid)
38     CALL DIAGNOSTICS_FILL(V_streamice,'SI_Vvel ',
39     & 0,1,0,1,1,myThid)
40     CALL DIAGNOSTICS_FILL(H_streamice,'SI_Thick',
41     & 0,1,0,1,1,myThid)
42     CALL DIAGNOSTICS_FILL(area_shelf_streamice,'SI_area ',
43     & 0,1,0,1,1,myThid)
44     CALL DIAGNOSTICS_FILL(float_frac_streamice,'SI_float',
45     & 0,1,0,1,1,myThid)
46 dgoldberg 1.2 CALL DIAGNOSTICS_FILL(STREAMICE_hmask,'SI_hmask',
47     & 0,1,0,1,1,myThid)
48 heimbach 1.1
49     ENDIF
50    
51    
52     #endif /* ALLOW_DIAGNOSTICS */
53     #endif
54     RETURN
55 dgoldberg 1.2 END

  ViewVC Help
Powered by ViewVC 1.1.22