fBase_alloc Subroutine

private subroutine fBase_alloc(sf)

allocate all variables in fBase

Arguments

Type IntentOptional Attributes Name
class(t_fBase), intent(inout) :: sf

self

Called by

proc~~fbase_alloc~~CalledByGraph proc~fbase_alloc fBase_alloc proc~fbase_init t_fBase%fBase_init proc~fbase_init->proc~fbase_alloc proc~fbase_copy t_fBase%fBase_copy proc~fbase_copy->proc~fbase_init proc~fbase_new fBase_new proc~fbase_new->proc~fbase_init interface~t_fbase t_fBase interface~t_fbase->proc~fbase_new

Source Code

SUBROUTINE fBase_alloc( sf)
  ! MODULES
  IMPLICIT NONE
  ! INPUT/OUTPUT VARIABLES -------------------------!
  CLASS(t_fBase), INTENT(INOUT) :: sf !! self
  ! CODE --------------------------------------------------------------------------------------------------------------------------!
  ASSOCIATE(&
              mn_IP     => sf%mn_IP     &
            , modes     => sf%modes     &
            )
  ALLOCATE(sf%Xmn(        2,1:modes))
  ALLOCATE(sf%zero_odd_even(1:modes))
  ALLOCATE(sf%x_IP(       2,1:mn_IP) )
  ALLOCATE(sf%thet_IP(1:sf%mn_nyq(1)))
  ALLOCATE(sf%zeta_IP(1:sf%mn_nyq(2)))
  ALLOCATE(sf%base_IP(      1:mn_IP,1:modes) )
  ALLOCATE(sf%base_dthet_IP(1:mn_IP,1:modes) )
  ALLOCATE(sf%base_dzeta_IP(1:mn_IP,1:modes) )
  ALLOCATE(sf%snorm_base(1:modes) )
  ALLOCATE(sf%base1D_IPthet(      1:sf%mn_nyq(1),1:2,1:sf%mTotal1D) )
  ALLOCATE(sf%base1D_dthet_IPthet(1:sf%mn_nyq(1),1:2,1:sf%mTotal1D) )
  ALLOCATE(sf%base1D_IPzeta(      1:2,-sf%mn_max(2):sf%mn_max(2),1:sf%mn_nyq(2)) )
  ALLOCATE(sf%base1D_dzeta_IPzeta(1:2,-sf%mn_max(2):sf%mn_max(2),1:sf%mn_nyq(2)) )
  END ASSOCIATE !m_nyq,n_nyq,modes
END SUBROUTINE fBase_alloc