Skip to content

Commit

Permalink
minor edits
Browse files Browse the repository at this point in the history
  • Loading branch information
@edwardhartnett
edwardhartnett committed Jan 18, 2024
1 parent c1e16a2 commit 13c03ea
Show file tree
Hide file tree
Showing 2 changed files with 55 additions and 55 deletions.
84 changes: 42 additions & 42 deletions io/module_write_internal_state.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand All @@ -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

!-----------------------------------------------------------
Expand Down
26 changes: 13 additions & 13 deletions io/module_write_netcdf.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -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, &
Expand Down Expand Up @@ -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)
Expand Down Expand Up @@ -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)
Expand Down Expand Up @@ -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)
Expand Down

0 comments on commit 13c03ea

Please sign in to comment.