Add parallel I/O output module implementation

Author: SeanBryan51

CMakeLists.txt

@@ -283,14 +283,15 @@ else()
         src/offline/cable_abort.F90
         src/offline/cable_checks.F90
         src/offline/cable_cru_TRENDY.F90
+        src/offline/cable_diagnostics_casa.F90
+        src/offline/cable_diagnostics.F90
         src/offline/cable_driver_common.F90
         src/offline/cable_initialise.F90
         src/offline/cable_input.F90
         src/offline/cable_metutils.F90
         src/offline/cable_mpi_stub_types.F90
         src/offline/cable_mpi.F90
         src/offline/cable_namelist_input.F90
-        src/offline/cable_output.F90
         src/offline/cable_parameters.F90
         src/offline/cable_pft_params.F90
         src/offline/cable_plume_mip.F90
@@ -299,7 +300,6 @@ else()
         src/offline/cable_serial.F90
         src/offline/cable_soil_params.F90
         src/offline/cable_weathergenerator.F90
-        src/offline/cable_write.F90
         src/offline/casa_cable.F90
         src/offline/cbl_model_driver_offline.F90
         src/offline/landuse_inout.F90
@@ -308,11 +308,20 @@ else()
         src/util/cable_climate_type_mod.F90
         src/util/masks_cbl.F90
         src/util/cable_array_utils.F90
+        src/util/cable_grid_reductions.F90
+        src/util/cable_timing.F90
         src/util/netcdf/cable_netcdf_decomp_util.F90
         src/util/netcdf/cable_netcdf.F90
         src/util/netcdf/cable_netcdf_init.F90
         src/util/netcdf/cable_netcdf_stub_types.F90
         src/util/netcdf/nf90/cable_netcdf_nf90.F90
+        src/util/output/cable_output_decomp.F90
+        src/util/output/cable_output_define.F90
+        src/util/output/cable_output_impl.F90
+        src/util/output/cable_output_internal.F90
+        src/util/output/cable_output_reduction_buffers.F90
+        src/util/output/cable_output_write.F90
+        src/util/output/cable_output.F90
     )
 
     target_link_libraries(cable_common PRIVATE PkgConfig::NETCDF)

src/offline/cable_abort.F90

@@ -37,8 +37,6 @@ MODULE cable_abort_module
   !              open_met_file
   !              get_met_data
   !              load_parameters
-  !              open_output_file
-  !              write_output
   !              read_gridinfo
   !              countpatch
   !              get_type_parameters
@@ -47,16 +45,6 @@ MODULE cable_abort_module
   !              readpar_rd
   !              readpar_r2
   !              readpar_r2d
-  !              define_output_variable_r1
-  !              define_output_variable_r2
-  !              define_output_parameter_r1
-  !              define_output_parameter_r2
-  !              write_output_variable_r1
-  !              write_output_variable_r2
-  !              write_output_parameter_r1
-  !              write_output_parameter_r1d
-  !              write_output_parameter_r2
-  !              write_output_parameter_r2d
   !
   !==============================================================================
 
@@ -83,26 +71,12 @@ END SUBROUTINE abort
   !              get_met_data
   !              close_met_file
   !              load_parameters
-  !              open_output_file
-  !              write_output
-  !              close_output_file
-  !              create_restart
   !              read_gridinfo
   !              readpar_i
   !              readpar_r
   !              readpar_rd
   !              readpar_r2
   !              readpar_r2d
-  !              define_output_variable_r1
-  !              define_output_variable_r2
-  !              define_output_parameter_r1
-  !              define_output_parameter_r2
-  !              write_output_variable_r1
-  !              write_output_variable_r2
-  !              write_output_parameter_r1
-  !              write_output_parameter_r1d
-  !              write_output_parameter_r2
-  !              write_output_parameter_r2d
   !
   ! MODULEs used: netcdf
   !
@@ -130,9 +104,6 @@ END SUBROUTINE nc_abort
   ! Purpose: Prints an error message and localisation information then stops the
   !          code
   !
-  ! CALLed from: write_output_variable_r1
-  !              write_output_variable_r2
-  !
   ! MODULEs used: cable_def_types_mod
   !               cable_IO_vars_module
   !

src/offline/cable_checks.F90

@@ -300,7 +300,7 @@ SUBROUTINE constant_check_range(soil, veg, ktau, met)
     ! Commented ones in cable_def_types need to be checked
     ! Commented ones here need to be range-specified
     ! In future, it's better to have a callback for a derived type having both ranges and values
-    ! This also clashes with range checks in open_output_file
+    ! This also clashes with range checks in the output module
 
     TYPE(soil_parameter_type), INTENT(IN) :: soil
     TYPE(veg_parameter_type), INTENT(IN) :: veg
@@ -467,9 +467,6 @@ END SUBROUTINE constant_check_range
   !          to scrutinise balance in particular sections of the code - largely
   !          for diagnostics/fault finding.
   !
-  ! CALLed from: write_output
-  !
-  !
   !==============================================================================
 
   SUBROUTINE mass_balance(dels,ktau, ssnow,soil,canopy,met,                            &
@@ -561,8 +558,6 @@ END SUBROUTINE mass_balance
   !          to scrutinise balance in particular sections of the code - largely
   !          for diagnostics/fault finding.
   !
-  ! CALLed from: write_output
-  !
   ! MODULEs used: cable_data (inherited)
   !
   !==============================================================================