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

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

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

revision 1.2 by dgoldberg, Fri Apr 20 14:08:33 2012 UTC revision 1.7 by dgoldberg, Wed Aug 27 19:29:13 2014 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "STREAMICE_OPTIONS.h"  #include "STREAMICE_OPTIONS.h"
5    
# Line 8  CBOP Line 9  CBOP
9        SUBROUTINE STREAMICE_DIAGNOSTICS_STATE( myTime, myIter, myThid )        SUBROUTINE STREAMICE_DIAGNOSTICS_STATE( myTime, myIter, myThid )
10    
11  C     /============================================================\  C     /============================================================\
12  C     | SUBROUTINE                                                 |    C     | SUBROUTINE                                                 |
13  C     | o                                                          |  C     | o                                                          |
14  C     |============================================================|  C     |============================================================|
15  C     |                                                            |  C     |                                                            |
# Line 21  C     === Global variables === Line 22  C     === Global variables ===
22  #include "PARAMS.h"  #include "PARAMS.h"
23  #include "STREAMICE.h"  #include "STREAMICE.h"
24    
25        _RL mytime        _RL myTime
26        INTEGER myIter, myThid        INTEGER myIter, myThid
27    
28  #ifdef ALLOW_STREAMICE  #ifdef ALLOW_STREAMICE
29    
30          CHARACTER*(MAX_LEN_MBUF) msgBuf
31    
32  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
33    
34    
35          
36    
37        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
38        PRINT *, "CALLING FILL DIAGNOSTICS"         WRITE(msgBuf,'(A)') 'CALLING FILL DIAGNOSTICS'
39           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
40         &                     SQUEEZE_RIGHT , 1)
41    
42         CALL DIAGNOSTICS_FILL(U_streamice,'SI_Uvel ',         CALL DIAGNOSTICS_FILL(U_streamice,'SI_Uvel ',
43       &      0,1,0,1,1,myThid)       &      0,1,0,1,1,myThid)
44         CALL DIAGNOSTICS_FILL(V_streamice,'SI_Vvel ',         CALL DIAGNOSTICS_FILL(V_streamice,'SI_Vvel ',
# Line 43  C     === Global variables === Line 49  C     === Global variables ===
49       &      0,1,0,1,1,myThid)       &      0,1,0,1,1,myThid)
50         CALL DIAGNOSTICS_FILL(float_frac_streamice,'SI_float',         CALL DIAGNOSTICS_FILL(float_frac_streamice,'SI_float',
51       &      0,1,0,1,1,myThid)       &      0,1,0,1,1,myThid)
52         CALL DIAGNOSTICS_FILL(STREAMICE_hmask,'SI_hmask',         CALL DIAGNOSTICS_FILL_RS(STREAMICE_hmask,'SI_hmask',
53         &      0,1,0,1,1,myThid)
54    #ifdef STREAMICE_HYBRID_STRESS
55           CALL DIAGNOSTICS_FILL(streamice_u_surf,'SI_usurf',
56         &      0,1,0,1,1,myThid)
57           CALL DIAGNOSTICS_FILL(STREAMICE_v_surf,'SI_vsurf',
58         &      0,1,0,1,1,myThid)
59           CALL DIAGNOSTICS_FILL(streamice_u_bed,'SI_ubase',
60         &      0,1,0,1,1,myThid)
61           CALL DIAGNOSTICS_FILL(STREAMICE_v_bed,'SI_vbase',
62         &      0,1,0,1,1,myThid)
63           CALL DIAGNOSTICS_FILL(streamice_taubx,'SI_taubx',
64         &      0,1,0,1,1,myThid)
65           CALL DIAGNOSTICS_FILL(STREAMICE_tauby,'SI_tauby',
66         &      0,1,0,1,1,myThid)
67    #endif
68           CALL DIAGNOSTICS_FILL(surf_el_streamice,'SI_selev',
69         &      0,1,0,1,1,myThid)
70    #ifdef ALLOW_STREAMICE_2DTRACER
71           CALL DIAGNOSTICS_FILL(trac2d,'SI2Dtrac',
72       &      0,1,0,1,1,myThid)       &      0,1,0,1,1,myThid)
73    #endif
74    
75        ENDIF        ENDIF
76    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22