pspect.f90

CCSM Research Tools: Community Atmosphere Model (CAM)

#include <misc.h>
#include <params.h>

module pspect
!----------------------------------------------------------------------- 
! 
! Purpose: Parameters related to spectral domain
! 
! Author: CCM Core Group
! 
!-----------------------------------------------------------------------
   integer, parameter :: ptrm = PTRM                ! M truncation parameter
   integer, parameter :: ptrn = PTRN                ! N truncation parameter
   integer, parameter :: ptrk = PTRK                ! K truncation parameter
                                                   
   integer, parameter :: pmax = ptrn+1              ! number of diagonals
   integer, parameter :: pmaxp = pmax+1             ! Number of diagonals plus 1
   integer, parameter :: pnmax = ptrk+1             ! Number of values of N
   integer, parameter :: pmmax = ptrm+1             ! Number of values of M
   integer, parameter :: par0 = ptrm+ptrn-ptrk      ! intermediate parameter
   integer, parameter :: par2 = par0*(par0+1)/2     ! intermediate parameter
   integer, parameter :: pspt = (ptrn+1)*pmmax-par2 ! Total num complex spectral coeffs retained
   integer, parameter :: psp = 2*pspt               ! 2*pspt (real) size of coeff array per level

end module pspect