From 13c03ea49cc5fec82410b74dd4b6684fad810cb1 Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Thu, 18 Jan 2024 08:18:52 -0700 Subject: [PATCH] minor edits --- io/module_write_internal_state.F90 | 84 +++++++++++++++--------------- io/module_write_netcdf.F90 | 26 ++++----- 2 files changed, 55 insertions(+), 55 deletions(-) diff --git a/io/module_write_internal_state.F90 b/io/module_write_internal_state.F90 index e8ae06547..4ba2cd86e 100644 --- a/io/module_write_internal_state.F90 +++ b/io/module_write_internal_state.F90 @@ -14,27 +14,27 @@ module write_internal_state !----------------------------------------------------------------------- ! type output_grid_info - integer :: im !< output grid global I dimension size - integer :: jm !< output grid global J dimension size - integer :: lm !< output grid global L dimension size - integer :: i_start !< output grid lower bound of I dimension on current PE - integer :: i_end !< output grid upper bound of I dimension on current PE - integer :: j_start !< output grid lower bound of J dimension on current PE - integer :: j_end !< output grid upper bound of J dimension on current PE - real,dimension(:,:),allocatable :: lonPtr !< output grid longitudes - real,dimension(:,:),allocatable :: latPtr !< output grid latitudes - integer,dimension(:),allocatable :: i_start_wrtgrp !< I dimension lower bound of all wrire groups - integer,dimension(:),allocatable :: i_end_wrtgrp !< I dimension upper bound of all wrire groups - integer,dimension(:),allocatable :: j_start_wrtgrp !< J dimension lower bound of all wrire groups - integer,dimension(:),allocatable :: j_end_wrtgrp !< J dimension upper bound of all wrire groups - real :: latse !< output grid South East corner latitude - real :: latnw !< output grid North West corner latitude - real :: lonse !< output grid South East corner longitude - real :: lonnw !< output grid North West corner longitude - real :: latstart !< output grid start latitude - real :: latlast !< output grid last latitude - real :: lonstart !< output grid start logitude - real :: lonlast !< output grid last longitude + integer :: im !< Output grid global I dimension size. + integer :: jm !< Output grid global J dimension size. + integer :: lm !< Output grid global L dimension size. + integer :: i_start !< Output grid lower bound of I dimension on current PE. + integer :: i_end !< Output grid upper bound of I dimension on current PE. + integer :: j_start !< Output grid lower bound of J dimension on current PE. + integer :: j_end !< Output grid upper bound of J dimension on current PE. + real,dimension(:,:),allocatable :: lonPtr !< Output grid longitudes. + real,dimension(:,:),allocatable :: latPtr !< Output grid latitudes. + integer,dimension(:),allocatable :: i_start_wrtgrp !< I dimension lower bound of all wrire groups. + integer,dimension(:),allocatable :: i_end_wrtgrp !< I dimension upper bound of all wrire groups. + integer,dimension(:),allocatable :: j_start_wrtgrp !< J dimension lower bound of all wrire groups. + integer,dimension(:),allocatable :: j_end_wrtgrp !< J dimension upper bound of all wrire groups. + real :: latse !< Output grid South East corner latitude. + real :: latnw !< Output grid North West corner latitude. + real :: lonse !< Output grid South East corner longitude. + real :: lonnw !< Output grid North West corner longitude. + real :: latstart !< Output grid start latitude. + real :: latlast !< Output grid last latitude. + real :: lonstart !< Output grid start logitude. + real :: lonlast !< Output grid last longitude. end type output_grid_info type wrt_internal_state @@ -43,62 +43,62 @@ module write_internal_state ! pe information and task layout !-------------------------------- ! - integer :: mype !< MPI rank + integer :: mype !< MPI rank. integer :: petcount !< Number of PEs. ! !-------------------- !*** grid information !-------------------- - type(esmf_grid) :: wrtgrid !< ESMF output grid + type(esmf_grid) :: wrtgrid !< ESMF output grid. type(output_grid_info) ,dimension(:), allocatable :: out_grid_info !< Array of output_grid_info for all domains ! !-------------------------- !*** file bundle for output !-------------------------- - integer :: FBCount !< Numebr of output ESMF field bundles + integer :: FBCount !< Numebr of output ESMF field bundles. ! !----------------------------------------------------------------------- !*** THE OUTPUT FILE !----------------------------------------------------------------------- ! - integer :: num_files !< number of output files + integer :: num_files !< Number of output files. ! !----------------------------------------------------------------------- !*** THE OUTPUT FILE !----------------------------------------------------------------------- ! - type(ESMF_FieldBundle),dimension(:),allocatable :: wrtFB !< ESMF write field bundles + type(ESMF_FieldBundle),dimension(:),allocatable :: wrtFB !< ESMF write field bundles. ! !------------------------------------- !*** Times used in history filenames !------------------------------------- ! - type(ESMF_Time) :: io_basetime !< ESMF clock's starting time - integer :: idate(7) !< Forecast initial time - integer :: fdate(7) !< Forecast current time + type(ESMF_Time) :: io_basetime !< ESMF clock's starting time. + integer :: idate(7) !< Forecast initial time. + integer :: fdate(7) !< Forecast current time. ! !----------------------------------------- !*** I/O direction flags (Read or Write) !----------------------------------------- ! - logical :: output_history !< True if history output is requested + logical :: output_history !< True if history output is requested. ! !----------------------------------------- !*** POST flags and required variables !----------------------------------------- ! - logical :: write_dopost !< True if inline post is requested - character(80) :: post_namelist !< filename of the inline post namelist -! - integer :: fhzero !< hours between clearing of diagnostic buckets - integer :: ntrac !< number of tracers - integer :: ncld !< number of hydrometeors - integer :: nsoil !< number of soil layers - integer :: imp_physics !< choice of microphysics scheme - integer :: dtp !< physics timestep - real,dimension(:),allocatable :: ak !< a parameter for sigma pressure level calculations - real,dimension(:),allocatable :: bk !< b parameter for sigma pressure level calculations + logical :: write_dopost !< True if inline post is requested. + character(80) :: post_namelist !< File name of the inline post namelist. +! + integer :: fhzero !< Hours between clearing of diagnostic buckets. + integer :: ntrac !< Number of tracers. + integer :: ncld !< Number of hydrometeors. + integer :: nsoil !< Number of soil layers. + integer :: imp_physics !< Choice of microphysics scheme. + integer :: dtp !< Physics timestep. + real,dimension(:),allocatable :: ak !< a parameter for sigma pressure level calculations. + real,dimension(:),allocatable :: bk !< b parameter for sigma pressure level calculations. !----------------------------------------------------------------------- ! end type wrt_internal_state @@ -109,7 +109,7 @@ module write_internal_state !----------------------------------------------------------- ! type write_wrap - type(wrt_internal_state),pointer :: write_int_state !< Write grid component internal state + type(wrt_internal_state),pointer :: write_int_state !< Write grid component internal state. end type write_wrap !----------------------------------------------------------- diff --git a/io/module_write_netcdf.F90 b/io/module_write_netcdf.F90 index 2ae56e64e..22b37c44b 100644 --- a/io/module_write_netcdf.F90 +++ b/io/module_write_netcdf.F90 @@ -34,13 +34,13 @@ module module_write_netcdf !> Write netCDF file. !> - !> @param[in] wrtfb ESMF write field bundle + !> @param[in] wrtfb ESMF write field bundle. !> @param[in] filename NetCDF filename. !> @param[in] use_parallel_netcdf True if parallel I/O should be used. !> @param[in] mpi_comm MPI communicator for parallel I/O. - !> @param[in] mype MPI rank - !> @param[in] grid_id Output grid identifier - !> @param[out] rc Return code: return code + !> @param[in] mype MPI rank. + !> @param[in] grid_id Output grid identifier. + !> @param[out] rc Return code. !> !> @author Dusan Jovic @date Nov 1, 2017 subroutine write_netcdf(wrtfb, filename, & @@ -737,10 +737,10 @@ end subroutine write_netcdf !> Get global attribute. !> - !> @param[in] fldbundle ESMF field bundle + !> @param[in] fldbundle ESMF field bundle. !> @param[in] ncid NetCDF file ID. - !> @param[in] mype MPI rank - !> @param[out] rc Return code: return code + !> @param[in] mype MPI rank. + !> @param[out] rc Return code. !> !> @author Dusan Jovic @date Nov 1, 2017 subroutine get_global_attr(fldbundle, ncid, mype, rc) @@ -813,11 +813,11 @@ end subroutine get_global_attr !> Get grid attribute. !> - !> @param[in] grid ESMF output grid - !> @param[in] prefix grid attribute prefix + !> @param[in] grid ESMF output grid. + !> @param[in] prefix grid attribute prefix. !> @param[in] ncid NetCDF file ID. !> @param[in] varid NetCDF variable ID. - !> @param[out] rc Return code: return code + !> @param[out] rc Return code. !> !> @author Dusan Jovic @date Nov 1, 2017 subroutine get_grid_attr(grid, prefix, ncid, varid, rc) @@ -889,9 +889,9 @@ end subroutine get_grid_attr !> @param[in] dim_name Dimension name. !> @param[in] dimid Dimension ID. !> @param[in] grpid Group ID. - !> @param[in] grid ESMF output grid - !> @param[in] mype MPI rank - !> @param[out] rc Return code: retrun code + !> @param[in] grid ESMF output grid. + !> @param[in] mype MPI rank. + !> @param[out] rc Return code. !> !> @author Dusan Jovic @date Nov 1, 2017 subroutine add_dim(ncid, dim_name, dimid, grid, mype, rc)