Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Introduce init_pio_mod with the initialization pieces from shr_pio_mod #16

Merged
merged 2 commits into from
Jul 8, 2022
Merged

Introduce init_pio_mod with the initialization pieces from shr_pio_mod #16

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
2e05082
Introduce init_pio_mod with the initialization pieces from shr_pio_mod
billsacks Jul 5, 2022
15c5d5c
Rename init_pio to driver_pio
billsacks Jul 5, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
14 changes: 7 additions & 7 deletions driver/main/cime_comp_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -669,7 +669,7 @@ module cime_comp_mod
!===============================================================================

subroutine cime_pre_init1(esmf_log_option)
use shr_pio_mod, only : shr_pio_init1, shr_pio_init2
use driver_pio_mod, only: driver_pio_init1, driver_pio_init2
use seq_comm_mct, only: num_inst_driver
!----------------------------------------------------------
!| Initialize MCT and MPI communicators and IO
Expand Down Expand Up @@ -708,10 +708,10 @@ subroutine cime_pre_init1(esmf_log_option)
!--- Initialize multiple driver instances, if requested ---
call cime_cpl_init(global_comm, driver_comm, num_inst_driver, driver_id)

call shr_pio_init1(num_inst_total,NLFileName, driver_comm)
call driver_pio_init1(num_inst_total,NLFileName, driver_comm)
!
! If pio_async_interface is true Global_comm is MPI_COMM_NULL on the servernodes
! and server nodes do not return from shr_pio_init2
! and server nodes do not return from driver_pio_init2
!
! if (Global_comm /= MPI_COMM_NULL) then

Expand Down Expand Up @@ -938,9 +938,9 @@ subroutine cime_pre_init1(esmf_log_option)

!
! When using io servers (pio_async_interface=.true.) the server tasks do not return from
! shr_pio_init2
! driver_pio_init2
!
call shr_pio_init2(comp_id,comp_name,comp_iamin,comp_comm,comp_comm_iam)
call driver_pio_init2(comp_id,comp_name,comp_iamin,comp_comm,comp_comm_iam)

end subroutine cime_pre_init1

Expand Down Expand Up @@ -3623,7 +3623,7 @@ end subroutine cime_run

subroutine cime_final()

use shr_pio_mod, only : shr_pio_finalize
use driver_pio_mod, only : driver_pio_finalize
use shr_wv_sat_mod, only: shr_wv_sat_final

!------------------------------------------------------------------------
Expand Down Expand Up @@ -3654,7 +3654,7 @@ subroutine cime_final()
!------------------------------------------------------------------------

call shr_wv_sat_final()
call shr_pio_finalize( )
call driver_pio_finalize( )

call shr_mpi_min(msize ,msize0,mpicom_GLOID,' driver msize0', all=.true.)
call shr_mpi_max(msize ,msize1,mpicom_GLOID,' driver msize1', all=.true.)
Expand Down
Loading