Back to home page

MITgcm

 
 

    


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

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
d8d1486ca1 Jean*0001 #ifdef ALLOW_KL10
                0002 
                0003 C     /==========================================================\
                0004 C     | KL10_DIAGS.h                                             |
                0005 C     | o Header for KL10 diagnostic output                      |
                0006 C     \==========================================================/
                0007 
                0008 C----------------------------------------------------------------
                0009 C     kl_drctrec     - next record to dump for KL files
                0010 C----------------------------------------------------------------
                0011       INTEGER kl_drctrec
                0012       COMMON /KL10_RECORDNUM1/ kl_drctrec
                0013 
                0014 #ifdef ALLOW_TIMEAVE
                0015 C----------------------------------------------------------------
                0016 C     kl_drctrecTave - next record to dump for KL averaging files
                0017 C----------------------------------------------------------------
                0018 
                0019       INTEGER kl_drctrecTave
                0020       COMMON /KL10_RECORDNUM2/ kl_drctrecTave
                0021 
                0022 C----------------------------------------------------------------
                0023 C     kl_TimeAve - time of temporal integration (s) for each thread
                0024 C----------------------------------------------------------------
                0025 
                0026       _RL kl_TimeAve(Nr,nSx,nSy)
                0027       COMMON /KL10_TAVE/ kl_TimeAve
                0028 
                0029 C----------------------------------------------------------------
                0030 C     KL*tave    - Time-averaging KL variables
                0031 C----------------------------------------------------------------
                0032 
                0033       _RL KLviscArtave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0034       _RL KLdiffKrtave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0035       _RL KLepstave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0036       COMMON /KL10_TAVE_DIAGS/  KLviscArtave, KLdiffKrtave, KLepstave
                0037 
                0038 #endif /* ALLOW_TIMEAVE */
                0039 
                0040 #endif /* ALLOW_KL10 */