pkg/land/land_diagnostics_state.F

C $Header: /u/gcmpack/MITgcm/pkg/land/land_diagnostics_state.F,v 1.1 2007/06/21 00:31:44 jmc Exp $
C $Name:  $

#include "LAND_OPTIONS.h"

CBOP
C     !ROUTINE: LAND_DIAGNOSTICS_STATE
C     !INTERFACE:
      SUBROUTINE LAND_DIAGNOSTICS_STATE(
     I                            myTime, myIter, myThid )

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | S/R LAND_DIAGNOSTICS_STATE
C     | o fill-in diagnostics array for LAND state variables
C     *==========================================================*
C     \ev

C     !USES:
      IMPLICIT NONE

C     == Global variables ===
C-- size for MITgcm & Land package :
#include "LAND_SIZE.h"

#include "EEPARAMS.h"
#include "PARAMS.h"
#include "LAND_PARAMS.h"
#include "LAND_VARS.h"

C     !INPUT/OUTPUT PARAMETERS:
C     == Routine arguments ==
C     myTime   :: Current time of simulation ( s )
C     myIter   :: Current iteration number in simulation
C     myThid   :: my Thread number Id
      _RL     myTime
      INTEGER myIter, myThid
CEOP

#ifdef ALLOW_DIAGNOSTICS
C     == Local variables ==
C     bi,bj    :: Tile indices
c     INTEGER bi, bj
c     INTEGER i,j
c     _RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
c     LOGICAL  DIAGNOSTICS_IS_ON
c     EXTERNAL DIAGNOSTICS_IS_ON

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

      IF ( useDiagnostics ) THEN

        CALL DIAGNOSTICS_FILL(land_skinT,'GrdSurfT',0,1,0,1,1,myThid)
        CALL DIAGNOSTICS_FILL(land_groundT,'GrdTemp ',0,land_nLev,
     &                                                  0,1,1,myThid)
        CALL DIAGNOSTICS_FILL(land_enthalp,'GrdEnth ',0,land_nLev,
     &                                                  0,1,1,myThid)
        CALL DIAGNOSTICS_FILL(land_groundW,'GrdWater',0,land_nLev,
     &                                                  0,1,1,myThid)
        CALL DIAGNOSTICS_FILL(land_hSnow,'LdSnowH ',0,1,0,1,1,myThid)
        CALL DIAGNOSTICS_FILL(land_snowAge,'LdSnwAge',0,1,
     &                                                  0,1,1,myThid)

      ENDIF

#endif /* ALLOW_DIAGNOSTICS */

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/land/land_diagnostics_state.F,v 1.1 2007/06/21 00:31:44 jmc Exp $
2	C $Name: $
3
4	#include "LAND_OPTIONS.h"
5
6	CBOP
7	C !ROUTINE: LAND_DIAGNOSTICS_STATE
8	C !INTERFACE:
9	SUBROUTINE LAND_DIAGNOSTICS_STATE(
10	I myTime, myIter, myThid )
11
12	C !DESCRIPTION: \bv
13	C ==========================================================
14	C \| S/R LAND_DIAGNOSTICS_STATE
15	C \| o fill-in diagnostics array for LAND state variables
16	C ==========================================================
17	C \ev
18
19	C !USES:
20	IMPLICIT NONE
21
22	C == Global variables ===
23	C-- size for MITgcm & Land package :
24	#include "LAND_SIZE.h"
25
26	#include "EEPARAMS.h"
27	#include "PARAMS.h"
28	#include "LAND_PARAMS.h"
29	#include "LAND_VARS.h"
30
31	C !INPUT/OUTPUT PARAMETERS:
32	C == Routine arguments ==
33	C myTime :: Current time of simulation ( s )
34	C myIter :: Current iteration number in simulation
35	C myThid :: my Thread number Id
36	_RL myTime
37	INTEGER myIter, myThid
38	CEOP
39
40	#ifdef ALLOW_DIAGNOSTICS
41	C == Local variables ==
42	C bi,bj :: Tile indices
43	c INTEGER bi, bj
44	c INTEGER i,j
45	c _RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
46	c LOGICAL DIAGNOSTICS_IS_ON
47	c EXTERNAL DIAGNOSTICS_IS_ON
48
49	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
50
51	IF ( useDiagnostics ) THEN
52
53	CALL DIAGNOSTICS_FILL(land_skinT,'GrdSurfT',0,1,0,1,1,myThid)
54	CALL DIAGNOSTICS_FILL(land_groundT,'GrdTemp ',0,land_nLev,
55	& 0,1,1,myThid)
56	CALL DIAGNOSTICS_FILL(land_enthalp,'GrdEnth ',0,land_nLev,
57	& 0,1,1,myThid)
58	CALL DIAGNOSTICS_FILL(land_groundW,'GrdWater',0,land_nLev,
59	& 0,1,1,myThid)
60	CALL DIAGNOSTICS_FILL(land_hSnow,'LdSnowH ',0,1,0,1,1,myThid)
61	CALL DIAGNOSTICS_FILL(land_snowAge,'LdSnwAge',0,1,
62	& 0,1,1,myThid)
63
64	ENDIF
65
66	#endif /* ALLOW_DIAGNOSTICS */
67
68	RETURN
69	END