pkg/land/land_diagnostics_state.F

4c4ae8300c Jean*0001 #include "LAND_OPTIONS.h"
                0002
                0003 CBOP
f323799cea Jean*0004 C     !ROUTINE: LAND_DIAGNOSTICS_STATE
4c4ae8300c Jean*0005 C     !INTERFACE:
2453644bcf Jean*0006       SUBROUTINE LAND_DIAGNOSTICS_STATE(
                0007      I                            myTime, myIter, myThid )
4c4ae8300c Jean*0008
                0009 C     !DESCRIPTION: \bv
                0010 C     *==========================================================*
f323799cea Jean*0011 C     | S/R LAND_DIAGNOSTICS_STATE
4c4ae8300c Jean*0012 C     | o fill-in diagnostics array for LAND state variables
                0013 C     *==========================================================*
                0014 C     \ev
2453644bcf Jean*0015
4c4ae8300c Jean*0016 C     !USES:
                0017       IMPLICIT NONE
                0018
                0019 C     == Global variables ===
                0020 C-- size for MITgcm & Land package :
                0021 #include "LAND_SIZE.h"
                0022
                0023 #include "EEPARAMS.h"
                0024 #include "PARAMS.h"
                0025 #include "LAND_PARAMS.h"
                0026 #include "LAND_VARS.h"
                0027
                0028 C     !INPUT/OUTPUT PARAMETERS:
                0029 C     == Routine arguments ==
                0030 C     myTime   :: Current time of simulation ( s )
                0031 C     myIter   :: Current iteration number in simulation
                0032 C     myThid   :: my Thread number Id
                0033       _RL     myTime
2453644bcf Jean*0034       INTEGER myIter, myThid
4c4ae8300c Jean*0035 CEOP
                0036
                0037 #ifdef ALLOW_DIAGNOSTICS
                0038 C     == Local variables ==
2453644bcf Jean*0039 C     bi,bj    :: Tile indices
                0040 c     INTEGER bi, bj
4c4ae8300c Jean*0041 c     INTEGER i,j
2453644bcf Jean*0042 c     _RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
4c4ae8300c Jean*0043 c     LOGICAL  DIAGNOSTICS_IS_ON
                0044 c     EXTERNAL DIAGNOSTICS_IS_ON
                0045
                0046 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0047
                0048       IF ( useDiagnostics ) THEN
                0049
2453644bcf Jean*0050         CALL DIAGNOSTICS_FILL(land_skinT,'GrdSurfT',0,1,0,1,1,myThid)
4c4ae8300c Jean*0051         CALL DIAGNOSTICS_FILL(land_groundT,'GrdTemp ',0,land_nLev,
2453644bcf Jean*0052      &                                                  0,1,1,myThid)
4c4ae8300c Jean*0053         CALL DIAGNOSTICS_FILL(land_enthalp,'GrdEnth ',0,land_nLev,
2453644bcf Jean*0054      &                                                  0,1,1,myThid)
4c4ae8300c Jean*0055         CALL DIAGNOSTICS_FILL(land_groundW,'GrdWater',0,land_nLev,
2453644bcf Jean*0056      &                                                  0,1,1,myThid)
                0057         CALL DIAGNOSTICS_FILL(land_hSnow,'LdSnowH ',0,1,0,1,1,myThid)
4c4ae8300c Jean*0058         CALL DIAGNOSTICS_FILL(land_snowAge,'LdSnwAge',0,1,
2453644bcf Jean*0059      &                                                  0,1,1,myThid)
4c4ae8300c Jean*0060
                0061       ENDIF
                0062
                0063 #endif /* ALLOW_DIAGNOSTICS */
                0064
                0065       RETURN
                0066       END