fv_init_control_mod.f90

Go to the documentation of this file.

! (C) Copyright 2020 UCAR
!
! This software is licensed under the terms of the Apache Licence Version 2.0
! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
 
module fv_init_mod
 
! fv3 uses
use fv_arrays_mod,  only: fv_atmos_type
use fv_control_mod, only: fv_control_init
use fv_mp_mod,      only: grids_master_procs
 
! fv3jedi uses
use fv3jedi_kinds_mod, only: kind_real
use fv_prec_mod,       only: kind_fv3
 
implicit none
private
public fv_init
 
! --------------------------------------------------------------------------------------------------
 
contains
 
! --------------------------------------------------------------------------------------------------
 
subroutine fv_init(Atm, dt_atmos_in, grids_on_this_pe, p_split, gtile)
 
type(fv_atmos_type), allocatable, intent(inout) :: atm(:)
real(kind=kind_real),             intent(in)    :: dt_atmos_in
logical, allocatable,             intent(out)   :: grids_on_this_pe(:)
integer,                          intent(inout) :: p_split
integer, optional,                intent(out)   :: gtile
 
integer :: this_grid
real(kind_fv3) :: dt_atmos
 
dt_atmos = dt_atmos_in
 
call fv_control_init(atm, dt_atmos, this_grid, grids_on_this_pe, p_split)
 
if (this_grid .ne. 1) call abor1_ftn("Geometry not ready for ngrid > 1")
 
if (present(gtile)) gtile = atm(1)%global_tile
 
if (allocated(grids_master_procs)) deallocate(grids_master_procs)
 
end subroutine fv_init
 
! --------------------------------------------------------------------------------------------------
 
end module fv_init_mod