pkg/seaice/SEAICE_TAVE.h

8c50aa8796 Jean*0001 CBOP
                0002 C     !ROUTINE: SEAICE_TAVE.h
                0003 C     !INTERFACE:
                0004 C     include "SEAICE_TAVE.h"
                0005 C     !DESCRIPTION:
                0006 C     \bv
                0007 C     *==========================================================*
                0008 C     | SEAICE_TAVE.h
                0009 C     | o Header for time-average SEAICE variables
                0010 C     *==========================================================*
                0011 C     \ev
                0012 CEOP
809c36b928 Patr*0013
                0014 #ifdef ALLOW_TIMEAVE
                0015
8c50aa8796 Jean*0016 C--   COMMON /SEAICE_TAVE_VARS/ time-averaged variables
                0017 C     SEAICE_timeAve :: cumulated time [s]
                0018       COMMON /SEAICE_TAVE_VARS/
                0019      &        SEAICE_timeAve,
                0020      &        FUtave, FVtave, EmPmRtave, QNETtave, QSWtave,
                0021      &        UICEtave, VICEtave, HEFFtave, AREAtave
809c36b928 Patr*0022
8c50aa8796 Jean*0023       _RL SEAICE_timeAve(nSx,nSy)
a241460aea Mart*0024       _RL FUtave    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0025       _RL FVtave    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0026       _RL EmPmRtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0027       _RL QNETtave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0028       _RL QSWtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0029       _RL UICEtave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0030       _RL VICEtave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0031       _RL HEFFtave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0032       _RL AREAtave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
809c36b928 Patr*0033
86b84a92fc Patr*0034 #ifdef SEAICE_ITD
                0035       COMMON /SEAICE_TAVE_VARS_ITD/
                0036      &        HEFFITDtave, AREAITDtave
                0037       _RL HEFFITDtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy)
                0038       _RL AREAITDtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy)
                0039 #endif
                0040
809c36b928 Patr*0041 #endif /* ALLOW_TIMEAVE */
9a87ea5e43 Ed H*0042
                0043 CEH3 ;;; Local Variables: ***
                0044 CEH3 ;;; mode:fortran ***
                0045 CEH3 ;;; End: ***