/[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.5 by dgoldberg, Mon Dec 10 02:34:45 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
# Line 31  C     === Global variables === Line 32  C     === Global variables ===
32  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
33    
34    
35          
36    
37        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
38         WRITE(msgBuf,'(A)') 'CALLING FILL DIAGNOSTICS'         WRITE(msgBuf,'(A)') 'CALLING FILL DIAGNOSTICS'
39         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
40       &                     SQUEEZE_RIGHT , 1)       &                     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 48  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)       &      0,1,0,1,1,myThid)
54  #ifdef STREAMICE_HYBRID_STRESS  #ifdef STREAMICE_HYBRID_STRESS
55         CALL DIAGNOSTICS_FILL(streamice_u_surf,'SI_usurf',         CALL DIAGNOSTICS_FILL(streamice_u_surf,'SI_usurf',
56       &      0,1,0,1,1,myThid)       &      0,1,0,1,1,myThid)
57         CALL DIAGNOSTICS_FILL(STREAMICE_v_surf,'SI_vsurf',         CALL DIAGNOSTICS_FILL(STREAMICE_v_surf,'SI_vsurf',
58       &      0,1,0,1,1,myThid)       &      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  #endif
68         CALL DIAGNOSTICS_FILL(surf_el_streamice,'SI_selev',         CALL DIAGNOSTICS_FILL(surf_el_streamice,'SI_selev',
69       &      0,1,0,1,1,myThid)       &      0,1,0,1,1,myThid)
70    #ifdef ALLOW_STREAMICE_2DTRACER
71           CALL DIAGNOSTICS_FILL(trac2d,'SI2Dtrac',
72         &      0,1,0,1,1,myThid)
73    #endif
74    
75        ENDIF        ENDIF
76    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22