C $Header: /u/gcmpack/MITgcm/pkg/land/land_diagnostics_fill.F,v 1.1 2005/02/14 00:41:07 jmc Exp $
C $Name:  $

#include "LAND_OPTIONS.h"

CBOP
C     !ROUTINE: LAND_DIAGNOSTICS_FILL
C     !INTERFACE:
      SUBROUTINE LAND_DIAGNOSTICS_FILL( 
     I                 myTime, myIter, bi,bj, myThid )

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | S/R LAND_DIAGNOSTICS_FILL
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     bi,bj    :: Tile indices
C     myThid   :: my Thread number Id
      _RL     myTime
      INTEGER myIter, bi, bj, myThid
CEOP

#ifdef ALLOW_DIAGNOSTICS
C     == Local variables ==
c     _RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
c     INTEGER i,j
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,1,bi,bj,myThid)
        CALL DIAGNOSTICS_FILL(land_groundT,'GrdTemp ',0,land_nLev,
     &                                                  1,bi,bj,myThid)
        CALL DIAGNOSTICS_FILL(land_enthalp,'GrdEnth ',0,land_nLev,
     &                                                  1,bi,bj,myThid)
        CALL DIAGNOSTICS_FILL(land_groundW,'GrdWater',0,land_nLev,
     &                                                  1,bi,bj,myThid)
        CALL DIAGNOSTICS_FILL(land_hSnow,'LdSnowH ',0,1,1,bi,bj,myThid)
        CALL DIAGNOSTICS_FILL(land_snowAge,'LdSnwAge',0,1,
     &                                                  1,bi,bj,myThid)

      ENDIF

#endif /* ALLOW_DIAGNOSTICS */

      RETURN
      END