scale_atmos_dyn_tinteg_large.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
#include "inc_openmp.h"
module scale_atmos_dyn_tinteg_large
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_stdio
  use scale_prof
  use scale_grid_index
  use scale_index
  use scale_tracer
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: atmos_dyn_tinteg_large_setup

  abstract interface
     subroutine large( &
          DENS, MOMZ, MOMX, MOMY, RHOT, QTRC, PROG,             &
          DENS_av, MOMZ_av, MOMX_av, MOMY_av, RHOT_av, QTRC_av, &
          mflx_hi, tflx_hi,                                     &
          num_diff, num_diff_q,                                 &
          DENS_tp, MOMZ_tp, MOMX_tp, MOMY_tp, RHOT_tp, RHOQ_tp, &
          CORIOLI,                                              &
          CDZ, CDX, CDY, FDZ, FDX, FDY,                         &
          RCDZ, RCDX, RCDY, RFDZ, RFDX, RFDY,                   &
          PHI, GSQRT,                                           &
          J13G, J23G, J33G, MAPF,                               &
          AQ_CV,                                                &
          REF_dens, REF_pott, REF_qv, REF_pres,                 &
          BND_W, BND_E, BND_S, BND_N,                           &
          ND_COEF, ND_COEF_Q, ND_ORDER, ND_SFC_FACT, ND_USE_RS, &
          DAMP_DENS,       DAMP_VELZ,       DAMP_VELX,          &
          DAMP_VELY,       DAMP_POTT,       DAMP_QTRC,          &
          DAMP_alpha_DENS, DAMP_alpha_VELZ, DAMP_alpha_VELX,    &
          DAMP_alpha_VELY, DAMP_alpha_POTT, DAMP_alpha_QTRC,    &
          divdmp_coef,                                          &
          FLAG_FCT_MOMENTUM, FLAG_FCT_T, FLAG_FCT_TRACER,       &
          FLAG_FCT_ALONG_STREAM,                                &
          USE_AVERAGE,                                          &
          DTL, DTS                                              )
       use scale_precision
       use scale_grid_index
       use scale_index
       use scale_tracer
       use scale_atmos_boundary, only: &
            bnd_qa
       real(RP), intent(inout) :: dens(ka,ia,ja)
       real(RP), intent(inout) :: momz(ka,ia,ja)
       real(RP), intent(inout) :: momx(ka,ia,ja)
       real(RP), intent(inout) :: momy(ka,ia,ja)
       real(RP), intent(inout) :: rhot(ka,ia,ja)
       real(RP), intent(inout) :: qtrc(ka,ia,ja,qa)
       real(RP), intent(inout) :: prog(ka,ia,ja,va)

       real(RP), intent(inout) :: dens_av(ka,ia,ja)
       real(RP), intent(inout) :: momz_av(ka,ia,ja)
       real(RP), intent(inout) :: momx_av(ka,ia,ja)
       real(RP), intent(inout) :: momy_av(ka,ia,ja)
       real(RP), intent(inout) :: rhot_av(ka,ia,ja)
       real(RP), intent(inout) :: qtrc_av(ka,ia,ja,qa)

       real(RP), intent(out)   :: mflx_hi(ka,ia,ja,3)
       real(RP), intent(out)   :: tflx_hi(ka,ia,ja,3)
       real(RP), intent(out)   :: num_diff(ka,ia,ja,5,3)
       real(RP), intent(out)   :: num_diff_q(ka,ia,ja,3)

       real(RP), intent(in)    :: dens_tp(ka,ia,ja)
       real(RP), intent(in)    :: momz_tp(ka,ia,ja)
       real(RP), intent(in)    :: momx_tp(ka,ia,ja)
       real(RP), intent(in)    :: momy_tp(ka,ia,ja)
       real(RP), intent(in)    :: rhot_tp(ka,ia,ja)
       real(RP), intent(in)    :: rhoq_tp(ka,ia,ja,qa)

       real(RP), intent(in)    :: corioli(ia,ja)

       real(RP), intent(in)    :: cdz (ka)
       real(RP), intent(in)    :: cdx (ia)
       real(RP), intent(in)    :: cdy (ja)
       real(RP), intent(in)    :: fdz (ka-1)
       real(RP), intent(in)    :: fdx (ia-1)
       real(RP), intent(in)    :: fdy (ja-1)
       real(RP), intent(in)    :: rcdz(ka)
       real(RP), intent(in)    :: rcdx(ia)
       real(RP), intent(in)    :: rcdy(ja)
       real(RP), intent(in)    :: rfdz(ka-1)
       real(RP), intent(in)    :: rfdx(ia-1)
       real(RP), intent(in)    :: rfdy(ja-1)

       real(RP), intent(in)    :: phi  (ka,ia,ja)
       real(RP), intent(in)    :: gsqrt(ka,ia,ja,7)
       real(RP), intent(in)    :: j13g (ka,ia,ja,7)
       real(RP), intent(in)    :: j23g (ka,ia,ja,7)
       real(RP), intent(in)    :: j33g
       real(RP), intent(in)    :: mapf (ia,ja,2,4)


       real(RP), intent(in)    :: aq_cv(qqa)
       real(RP), intent(in)    :: ref_dens(ka,ia,ja)
       real(RP), intent(in)    :: ref_pott(ka,ia,ja)
       real(RP), intent(in)    :: ref_qv  (ka,ia,ja)
       real(RP), intent(in)    :: ref_pres(ka,ia,ja)

       logical,  intent(in)    :: bnd_w
       logical,  intent(in)    :: bnd_e
       logical,  intent(in)    :: bnd_s
       logical,  intent(in)    :: bnd_n

       real(RP), intent(in)    :: nd_coef
       real(RP), intent(in)    :: nd_coef_q
       integer,  intent(in)    :: nd_order
       real(RP), intent(in)    :: nd_sfc_fact
       logical,  intent(in)    :: nd_use_rs

       real(RP), intent(in)    :: damp_dens(ka,ia,ja)
       real(RP), intent(in)    :: damp_velz(ka,ia,ja)
       real(RP), intent(in)    :: damp_velx(ka,ia,ja)
       real(RP), intent(in)    :: damp_vely(ka,ia,ja)
       real(RP), intent(in)    :: damp_pott(ka,ia,ja)
       real(RP), intent(in)    :: damp_qtrc(ka,ia,ja,bnd_qa)
       real(RP), intent(in)    :: damp_alpha_dens(ka,ia,ja)
       real(RP), intent(in)    :: damp_alpha_velz(ka,ia,ja)
       real(RP), intent(in)    :: damp_alpha_velx(ka,ia,ja)
       real(RP), intent(in)    :: damp_alpha_vely(ka,ia,ja)
       real(RP), intent(in)    :: damp_alpha_pott(ka,ia,ja)
       real(RP), intent(in)    :: damp_alpha_qtrc(ka,ia,ja,bnd_qa)

       real(RP), intent(in)    :: divdmp_coef
       logical,  intent(in)    :: flag_fct_momentum
       logical,  intent(in)    :: flag_fct_t
       logical,  intent(in)    :: flag_fct_tracer
       logical,  intent(in)    :: flag_fct_along_stream
       logical,  intent(in)    :: use_average

       real(DP), intent(in)    :: dtl
       real(DP), intent(in)    :: dts
     end subroutine large
  end interface
  procedure(large), pointer :: atmos_dyn_tinteg_large => null()
  public :: atmos_dyn_tinteg_large

  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine atmos_dyn_tinteg_large_setup( &
       ATMOS_DYN_Tinteg_large_TYPE )
    use scale_precision
    use scale_grid_index
    use scale_index
    use scale_process, only: &
       prc_mpistop
#define EXTM(pre, name, post) pre ## name ## post
#define NAME(pre, name, post) EXTM(pre, name, post)
#ifdef TINTEG_LARGE
    use name(scale_atmos_dyn_tinteg_large_, tinteg_large,), only: &
       name(atmos_dyn_rk_tinteg_large_, tinteg_large, _setup), &
       name(atmos_dyn_rk_tinteg_large_, tinteg_large,)
#else
    use scale_atmos_dyn_tinteg_large_euler, only: &
       atmos_dyn_tinteg_large_euler_setup, &
       atmos_dyn_tinteg_large_euler
    use scale_atmos_dyn_tinteg_large_rk3, only: &
       atmos_dyn_tinteg_large_rk3_setup, &
       atmos_dyn_tinteg_large_rk3
#endif
    implicit none
    character(len=*), intent(in)  :: ATMOS_DYN_Tinteg_large_TYPE
    !---------------------------------------------------------------------------

#ifdef TINTEG_LARGE
    name(atmos_dyn_tinteg_large_, tinteg_large, _setup)( &
            atmos_dyn_tinteg_large_type )
    atmos_dyn_tinteg_large => name(atmos_dyn_tingeg_large_, tinteg_large,)
#else
    select case ( atmos_dyn_tinteg_large_type )
    case ( 'EULER' )
       call atmos_dyn_tinteg_large_euler_setup( &
            atmos_dyn_tinteg_large_type )
       atmos_dyn_tinteg_large => atmos_dyn_tinteg_large_euler
    case ( 'RK3' )
       call atmos_dyn_tinteg_large_rk3_setup( &
            atmos_dyn_tinteg_large_type )
       atmos_dyn_tinteg_large => atmos_dyn_tinteg_large_rk3
    case ( 'OFF', 'NONE' )
       ! do nothing
    case default
       write(*,*) 'xxx ATMOS_DYN_TINTEG_LARGE_TYPE is invalid: ', atmos_dyn_tinteg_large_type
       call prc_mpistop
    end select
#endif

    return
  end subroutine atmos_dyn_tinteg_large_setup

end module scale_atmos_dyn_tinteg_large