/[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.1 by heimbach, Thu Mar 29 15:59:21 2012 UTC revision 1.6 by dgoldberg, Thu May 23 22:12:33 2013 UTC
# Line 26  C     === Global variables === Line 26  C     === Global variables ===
26    
27  #ifdef ALLOW_STREAMICE  #ifdef ALLOW_STREAMICE
28    
29          CHARACTER*(MAX_LEN_MBUF) msgBuf
30    
31  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
32    
33    
34                
35    
36        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
37        PRINT *, "CALLING FILL DIAGNOSTICS"         WRITE(msgBuf,'(A)') 'CALLING FILL DIAGNOSTICS'
38           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
39         &                     SQUEEZE_RIGHT , 1)
40        
41         CALL DIAGNOSTICS_FILL(U_streamice,'SI_Uvel ',         CALL DIAGNOSTICS_FILL(U_streamice,'SI_Uvel ',
42       &      0,1,0,1,1,myThid)       &      0,1,0,1,1,myThid)
43         CALL DIAGNOSTICS_FILL(V_streamice,'SI_Vvel ',         CALL DIAGNOSTICS_FILL(V_streamice,'SI_Vvel ',
# Line 43  C     === Global variables === Line 48  C     === Global variables ===
48       &      0,1,0,1,1,myThid)       &      0,1,0,1,1,myThid)
49         CALL DIAGNOSTICS_FILL(float_frac_streamice,'SI_float',         CALL DIAGNOSTICS_FILL(float_frac_streamice,'SI_float',
50       &      0,1,0,1,1,myThid)       &      0,1,0,1,1,myThid)
51           CALL DIAGNOSTICS_FILL(STREAMICE_hmask,'SI_hmask',
52         &      0,1,0,1,1,myThid)
53    #ifdef STREAMICE_HYBRID_STRESS
54           CALL DIAGNOSTICS_FILL(streamice_u_surf,'SI_usurf',
55         &      0,1,0,1,1,myThid)
56           CALL DIAGNOSTICS_FILL(STREAMICE_v_surf,'SI_vsurf',
57         &      0,1,0,1,1,myThid)
58    #endif
59           CALL DIAGNOSTICS_FILL(surf_el_streamice,'SI_selev',
60         &      0,1,0,1,1,myThid)
61    #ifdef ALLOW_STREAMICE_2DTRACER
62           CALL DIAGNOSTICS_FILL(trac2d,'SI2Dtrac',
63         &      0,1,0,1,1,myThid)
64    #endif
65    
66        ENDIF        ENDIF
67    
# Line 50  C     === Global variables === Line 69  C     === Global variables ===
69  #endif /* ALLOW_DIAGNOSTICS */  #endif /* ALLOW_DIAGNOSTICS */
70  #endif  #endif
71        RETURN        RETURN
       END  
72          END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22