pkg/land/land_do_diags.F

e0a2f8aec4 Jean*0001 #include "LAND_OPTIONS.h"
                0002
                0003 CBOP
d6ac66b199 Jean*0004 C     !ROUTINE: LAND_DO_DIAGS
e0a2f8aec4 Jean*0005 C     !INTERFACE:
439d922c37 Jean*0006       SUBROUTINE LAND_DO_DIAGS(
e0a2f8aec4 Jean*0007      I                land_frc, bi,bj, myTime, myIter, myThid )
                0008
                0009 C     !DESCRIPTION: \bv
                0010 C     *==========================================================*
d6ac66b199 Jean*0011 C     | S/R LAND_DO_DIAGS
e0a2f8aec4 Jean*0012 C     | o Calculate Land diagnostics
                0013 C     *==========================================================*
439d922c37 Jean*0014 C     | note: snap-shot output have been moved to a better place
                0015 C     |       and are now written from LAND_OUTPUT
                0016 C     *==========================================================*
e0a2f8aec4 Jean*0017 C     \ev
439d922c37 Jean*0018
e0a2f8aec4 Jean*0019 C     !USES:
                0020       IMPLICIT NONE
                0021
                0022 C     == Global variables ===
                0023 C-- size for MITgcm & Land package :
                0024 #include "LAND_SIZE.h"
                0025
                0026 #include "EEPARAMS.h"
                0027 #include "PARAMS.h"
                0028 #include "LAND_PARAMS.h"
                0029 #include "LAND_VARS.h"
                0030
                0031 C     !INPUT/OUTPUT PARAMETERS:
                0032 C     == Routine arguments ==
                0033 C     land_frc :: land fraction [0-1]
                0034 C     bi,bj    :: Tile index
                0035 C     myTime   :: Current time of simulation ( s )
                0036 C     myIter   :: Current iteration number in simulation
                0037 C     myThid   :: Number of this instance of the routine
                0038       _RS land_frc(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0039       INTEGER bi, bj, myIter, myThid
                0040       _RL     myTime
                0041 CEOP
                0042
                0043 #ifdef ALLOW_LAND
439d922c37 Jean*0044 C     == Local Variables ==
e0a2f8aec4 Jean*0045
d6ac66b199 Jean*0046 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0047
                0048 #ifdef ALLOW_DIAGNOSTICS
                0049
                0050       IF ( useDiagnostics ) THEN
                0051
                0052         CALL DIAGNOSTICS_FILL(land_runOff, 'RUNOFF  ',0,1,
                0053      &                                                1,bi,bj,myThid)
                0054         CALL DIAGNOSTICS_FILL(land_enRnOf, 'EnRunOff',0,1,
                0055      &                                                1,bi,bj,myThid)
                0056         CALL DIAGNOSTICS_FILL(land_HeatFlx,'landHFlx',0,1,
                0057      &                                                1,bi,bj,myThid)
                0058         CALL DIAGNOSTICS_FILL(land_Pr_m_Ev,'landPmE ',0,1,
                0059      &                                                1,bi,bj,myThid)
                0060         CALL DIAGNOSTICS_FILL(land_EnWFlux,'ldEnFxPr',0,1,
                0061      &                                                1,bi,bj,myThid)
                0062
                0063       ENDIF
                0064
                0065 #endif /* ALLOW_DIAGNOSTICS */
                0066
e0a2f8aec4 Jean*0067 #endif /* ALLOW_LAND */
                0068
                0069       RETURN
                0070       END