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

#ifdef ALLOW_DIAGNOSTICS


      IF ( useDiagnostics ) THEN
      PRINT *, "CALLING FILL DIAGNOSTICS"
       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)

      ENDIF


#endif /* ALLOW_DIAGNOSTICS */
#endif
      RETURN
      END
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
47	ENDIF
48
49
50	#endif /* ALLOW_DIAGNOSTICS */
51	#endif
52	RETURN
53	END