code clean up suggested in review

NorESMhub · Nov 17, 2022 · 0cf254c · 0cf254c
1 parent 02582eb
commit 0cf254c
Showing 1 changed file with 1 addition and 9 deletions.
diff --git a/cesm/nuopc_cap_share/driver_pio_mod.F90 b/cesm/nuopc_cap_share/driver_pio_mod.F90
@@ -226,13 +226,7 @@ subroutine driver_pio_component_init(driver, ncomps, rc)
           if (chkerr(rc,__LINE__,u_FILE_u)) return
 
           if(comp_comm .ne. MPI_COMM_NULL) then
-             call ESMF_VMGet(vm, petCount=npets, rc=rc)
-             if (chkerr(rc,__LINE__,u_FILE_u)) return
-
-             call ESMF_VMGet(vm, localPet=comp_rank, rc=rc) 
-             if (chkerr(rc,__LINE__,u_FILE_u)) return
-
-             call ESMF_VMGet(vm, ssiLocalPetCount=default_stride, rc=rc)
+             call ESMF_VMGet(vm, petCount=npets, localPet=comp_rank, ssiLocalPetCount=default_stride, rc=rc)
              if (chkerr(rc,__LINE__,u_FILE_u)) return
 
              call NUOPC_CompAttributeGet(gcomp(i), name="pio_stride", value=cval, rc=rc)
@@ -254,7 +248,6 @@ subroutine driver_pio_component_init(driver, ncomps, rc)
                 pio_comp_settings(i)%pio_numiotasks = max(1,npets/pio_comp_settings(i)%pio_stride)
              endif
 
-
              call NUOPC_CompAttributeGet(gcomp(i), name="pio_root", value=cval, rc=rc)
              if (chkerr(rc,__LINE__,u_FILE_u)) return
              read(cval, *) pio_comp_settings(i)%pio_root
@@ -263,7 +256,6 @@ subroutine driver_pio_component_init(driver, ncomps, rc)
                 pio_comp_settings(i)%pio_root = 0
              endif
 
-
              call NUOPC_CompAttributeGet(gcomp(i), name="pio_typename", value=cval, rc=rc)
              if (chkerr(rc,__LINE__,u_FILE_u)) return