dgoldberg/streamice/streamice_diagnostics_state.F



#include "STREAMICE_OPTIONS.h"

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|

CBOP
      SUBROUTINE STREAMICE_DIAGNOSTICS_STATE( myTime, myIter, myThid )

C     /============================================================\
C     | SUBROUTINE                                                 |   
C     | o                                                          |
C     |============================================================|
C     |                                                            |
C     \============================================================/
      IMPLICIT NONE

C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "STREAMICE.h"

      _RL mytime
      INTEGER myIter, myThid

#ifdef ALLOW_STREAMICE

      CHARACTER*(MAX_LEN_MBUF) msgBuf

#ifdef ALLOW_DIAGNOSTICS


      IF ( useDiagnostics ) THEN
       WRITE(msgBuf,'(A)') 'CALLING FILL DIAGNOSTICS'
       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
     &                     SQUEEZE_RIGHT , 1)
     
       CALL DIAGNOSTICS_FILL(U_streamice,'SI_Uvel ',
     &      0,1,0,1,1,myThid)
       CALL DIAGNOSTICS_FILL(V_streamice,'SI_Vvel ',
     &      0,1,0,1,1,myThid)
       CALL DIAGNOSTICS_FILL(H_streamice,'SI_Thick',
     &      0,1,0,1,1,myThid)
       CALL DIAGNOSTICS_FILL(area_shelf_streamice,'SI_area ',
     &      0,1,0,1,1,myThid)
       CALL DIAGNOSTICS_FILL(float_frac_streamice,'SI_float',
     &      0,1,0,1,1,myThid)
       CALL DIAGNOSTICS_FILL(STREAMICE_hmask,'SI_hmask',
     &      0,1,0,1,1,myThid)
       CALL DIAGNOSTICS_FILL(streamice_u_surf,'SI_usurf',
     &      0,1,0,1,1,myThid)
       CALL DIAGNOSTICS_FILL(STREAMICE_v_surf,'SI_vsurf',
     &      0,1,0,1,1,myThid)
       CALL DIAGNOSTICS_FILL(surf_el_streamice,'SI_selev',
     &      0,1,0,1,1,myThid)


      ENDIF


#endif /* ALLOW_DIAGNOSTICS */
#endif
      RETURN
      END
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	dgoldberg	1.3	CHARACTER*(MAX_LEN_MBUF) msgBuf
30
31	heimbach	1.1	#ifdef ALLOW_DIAGNOSTICS
32
33
34
35
36			IF ( useDiagnostics ) THEN
37	dgoldberg	1.3	WRITE(msgBuf,'(A)') 'CALLING FILL DIAGNOSTICS'
38			CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
39			& SQUEEZE_RIGHT , 1)
40
41	heimbach	1.1	CALL DIAGNOSTICS_FILL(U_streamice,'SI_Uvel ',
42			& 0,1,0,1,1,myThid)
43			CALL DIAGNOSTICS_FILL(V_streamice,'SI_Vvel ',
44			& 0,1,0,1,1,myThid)
45			CALL DIAGNOSTICS_FILL(H_streamice,'SI_Thick',
46			& 0,1,0,1,1,myThid)
47			CALL DIAGNOSTICS_FILL(area_shelf_streamice,'SI_area ',
48			& 0,1,0,1,1,myThid)
49			CALL DIAGNOSTICS_FILL(float_frac_streamice,'SI_float',
50			& 0,1,0,1,1,myThid)
51	dgoldberg	1.2	CALL DIAGNOSTICS_FILL(STREAMICE_hmask,'SI_hmask',
52			& 0,1,0,1,1,myThid)
53	dgoldberg	1.4	CALL DIAGNOSTICS_FILL(streamice_u_surf,'SI_usurf',
54			& 0,1,0,1,1,myThid)
55			CALL DIAGNOSTICS_FILL(STREAMICE_v_surf,'SI_vsurf',
56			& 0,1,0,1,1,myThid)
57			CALL DIAGNOSTICS_FILL(surf_el_streamice,'SI_selev',
58			& 0,1,0,1,1,myThid)
59
60	heimbach	1.1
61			ENDIF
62
63
64			#endif /* ALLOW_DIAGNOSTICS */
65			#endif
66			RETURN
67	dgoldberg	1.2	END