fv_init_geos_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_init1, fv_init2, pelist_all
 
! fv3jedi uses
use fv3jedi_kinds_mod, only: kind_real
 
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(inout) :: grids_on_this_pe(:)
integer,                          intent(inout) :: p_split
integer, optional,                intent(out)   :: gtile
 
real(4) :: dt_atmos
 
dt_atmos = dt_atmos_in
 
call fv_init1(atm, dt_atmos, grids_on_this_pe, p_split)
call fv_init2(atm, dt_atmos, grids_on_this_pe, p_split)
 
if (present(gtile)) gtile = atm(1)%tile
 
if (allocated(pelist_all)) deallocate(pelist_all)
 
end subroutine fv_init
 
! --------------------------------------------------------------------------------------------------
 
end module fv_init_mod