Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:41:42 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
0bff449f75 Jean*0001 CBOP
                0002 C     !ROUTINE: LAND_TAVE.h
                0003 C     !INTERFACE:
                0004 C     include "LAND_TAVE.h"
                0005 C     !DESCRIPTION:
                0006 C     \bv
e0a2f8aec4 Jean*0007 C     *==========================================================*
                0008 C     | LAND_TAVE.h
                0009 C     | o Header for LAND time-average diagnostic
                0010 C     *==========================================================*
                0011 C     | Declares global arrays used for holding/accumulating
                0012 C     | diagnostic output from LAND.
                0013 C     *==========================================================*
0bff449f75 Jean*0014 C     \ev
                0015 CEOP
e0a2f8aec4 Jean*0016 
0bff449f75 Jean*0017 #ifdef ALLOW_LAND
e0a2f8aec4 Jean*0018 #ifdef ALLOW_LAND_TAVE
                0019 
0bff449f75 Jean*0020 C--   COMMON /LAND_TAVE_VARS/ Time average land-variables
                0021 C     land_timeAve  :: cumulated time [s]
                0022 C     land_grTtave  :: time average ground Temp. [oC]
                0023 C     land_entave   :: time average enthalpy of each layer [J/m3]
89992793c5 Jean*0024 C     land_grWtave  :: time average soil moisture [0-1]
0bff449f75 Jean*0025 C     land_sTtave   :: time average surface Temperature [oC]
                0026 C     land_hStave   :: time average thickness of snow [m]
89992793c5 Jean*0027 C     land_sAtave   :: time average snow age (s)
4922beda30 Jean*0028 C     land_ROftave  :: time average Run-Off per surf unit [kg/m2/s]
89992793c5 Jean*0029 C     land_eROtave  :: time average energy flux related to run-Off [W/m2]
0bff449f75 Jean*0030       COMMON /LAND_TAVE_VARS/
                0031      &            land_timeAve,
89992793c5 Jean*0032      &            land_grTtave, land_entave , land_grWtave,
                0033      &            land_sTtave , land_hStave , land_sAtave ,
4922beda30 Jean*0034      &            land_ROftave, land_eROtave
e0a2f8aec4 Jean*0035 
0bff449f75 Jean*0036       _RL land_timeAve(nSx,nSy)
e0a2f8aec4 Jean*0037       _RL land_grTtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy)
89992793c5 Jean*0038       _RL land_entave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy)
e0a2f8aec4 Jean*0039       _RL land_grWtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy)
89992793c5 Jean*0040       _RL land_sTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0041       _RL land_hStave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0042       _RL land_sAtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
e0a2f8aec4 Jean*0043       _RL land_ROftave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
89992793c5 Jean*0044       _RL land_eROtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
e0a2f8aec4 Jean*0045 
                0046 #endif /* ALLOW_LAND_TAVE */
                0047 #endif /* ALLOW_LAND */