From 967df8cddf66f66945006f5dffb727a7fba9834a Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Thu, 18 Jan 2024 08:00:54 -0700 Subject: [PATCH 1/6] more doxygen changes --- io/post_fv3.F90 | 84 +++++++++++++++++++++++++-------------- io/post_nems_routines.F90 | 82 ++++++++++++++++++++++---------------- 2 files changed, 102 insertions(+), 64 deletions(-) diff --git a/io/post_fv3.F90 b/io/post_fv3.F90 index 97962bdd9..beb445653 100644 --- a/io/post_fv3.F90 +++ b/io/post_fv3.F90 @@ -1,3 +1,26 @@ +!> @file Run post on write grid comp. +!> @brief ??? +!> @author Jun Wang @date Jul, 2019 + +!> @brief Run post on write grid comp. +!> +!> ## Module History +!> +!> Date | Programmer | Modification +!> -----|------------|------------- +!> Jul 2019 | J. Wang | create interface to run inline post for FV3 +!> Sep 2020 | J. Dong/J. Wang | create interface to run inline post for FV3-LAM +!> Apr 2021 | R. Sun | Added variables for Thomspon MP +!> Apr 2022 | W. Meng | 1)unify global and regional inline post interfaces +!> Apr 2022 | W. Meng | 2)add bug fix for dx/dy computation +!> Apr 2022 | W. Meng | 3)add reading pwat from FV3 +!> Apr 2022 | W. Meng | 4)remove some variable initializations +!> Apr 2022 | W. Meng | 5)read max/min 2m T from tmax_max2m/tmin_min2m for GFS, and from t02max/min for RRFS and HAFS. +!> Apr 2022 | W. Meng | 6)read 3D cloud fraction from cld_amt for GFDL MP, and from cldfra for other MPs. +!> Jun 2022 | J. Meng | 2D decomposition +!> Jul 2022 | W. Meng | 1)output lat/lon of four corner point for rotated lat-lon grid. 2)read instant model top logwave +!> +!> @author Jun Wang @date Jul, 2019 module post_fv3 use mpi @@ -10,35 +33,26 @@ module post_fv3 implicit none - public post_run_fv3 + public post_run_fv3 !< ??? contains + !> ??? + !> + !> @param[in] wrt_int_state ??? + !> @param[in] grid_id ??? + !> @param[in] mype ??? + !> @param[in] mpicomp ??? + !> @param[in] lead_write ??? + !> @param[in] itasks ??? + !> @param[in] jtasks ??? + !> @param[in] mynfhr ??? + !> @param[in] mynfmin ??? + !> @param[in] mynfsec + !> + !> @author Jun Wang @date Jul, 2019 subroutine post_run_fv3(wrt_int_state,grid_id,mype,mpicomp,lead_write, & itasks,jtasks,mynfhr,mynfmin,mynfsec) -! -! revision history: -! Jul 2019 J. Wang create interface to run inline post for FV3 -! Sep 2020 J. Dong/J. Wang create interface to run inline post for FV3-LAM -! Apr 2021 R. Sun Added variables for Thomspon MP -! Apr 2022 W. Meng 1)unify global and regional inline post interfaces -! 2)add bug fix for dx/dy computation -! 3)add reading pwat from FV3 -! 4)remove some variable initializations -! 5)read max/min 2m T from tmax_max2m/tmin_min2m -! for GFS, and from t02max/min for RRFS -! and HAFS. -! 6)read 3D cloud fraction from cld_amt for GFDL MP, -! and from cldfra for other MPs. -! Jun 2022 J. Meng 2D decomposition -! Jul 2022 W. Meng 1)output lat/lon of four corner point for rotated -! lat-lon grid. -! 2)read instant model top logwave -! -!----------------------------------------------------------------------- -!*** run post on write grid comp -!----------------------------------------------------------------------- -! use ctlblk_mod, only : komax,ifhr,ifmin,modelname,datapd,fld_info, & npset,grib,jsta, & jend,ista,iend, im, nsoil, filenameflat,numx @@ -215,9 +229,13 @@ subroutine post_run_fv3(wrt_int_state,grid_id,mype,mpicomp,lead_write, & call post_finalize('grib2') end subroutine post_run_fv3 -! -!----------------------------------------------------------------------- -! + + !> ??? + !> + !> @param[in] wrt_int_state ??? + !> @param[in] grid_id ??? + !> + !> @author Jun Wang @date Jul, 2019 subroutine post_getattr_fv3(wrt_int_state,grid_id) ! use esmf @@ -485,9 +503,15 @@ subroutine post_getattr_fv3(wrt_int_state,grid_id) enddo !end nfb ! end subroutine post_getattr_fv3 -! -!----------------------------------------------------------------------- -! + + !> ??? + !> + !> @param[in] wrt_int_state ??? + !> @param[in] grid_id ??? + !> @param[in] mype ??? + !> @param[in] mpicomp + !> + !> @author Jun Wang @date Jul 2019 subroutine set_postvars_fv3(wrt_int_state,grid_id,mype,mpicomp) ! ! revision history: diff --git a/io/post_nems_routines.F90 b/io/post_nems_routines.F90 index 337139b1d..4fc88d91c 100644 --- a/io/post_nems_routines.F90 +++ b/io/post_nems_routines.F90 @@ -1,19 +1,33 @@ -!----------------------------------------------------------------------- -!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -!----------------------------------------------------------------------- -! - subroutine post_alctvars(imi,jmi,lmi,mype,nwtlpes,lead_write, mpicomp, & - jts,jte,jtsgrp,jtegrp,its,ite,itsgrp,itegrp) -! -! -! revision history: -! Jul 2019 Jun Wang: allocate arrays for post processing -! Feb 2022 J. Meng/B. Cui: create interface to run inline post with post_2d_decomp -! -!----------------------------------------------------------------------- -!*** allocate post variables -!----------------------------------------------------------------------- -! +!> @file +!> @brief ??? +!> @author Jun Wang @date Oct 8, 2019 + +!> Allocate post variables. +!> +!> ## Subroutine History +!> Date | Programmer | Modification +!> Jul 2019 | Jun Wang | allocate arrays for post processing +!> Feb 2022 | J. Meng/B. Cui | create interface to run inline post with post_2d_decomp +!> +!> @param[in] imi ??? +!> @param[in] jmi ??? +!> @param[in] lmi ??? +!> @param[in] mype ??? +!> @param[in] nwtlpes ??? +!> @param[in] lead_write ??? +!> @param[in] mpicomp ??? +!> @param[in] jts ??? +!> @param[in] jte ??? +!> @param[in] jtsgrp ??? +!> @param[in] jtegrp ??? +!> @param[in] its ??? +!> @param[in] ite ??? +!> @param[in] itsgrp ??? +!> @param[in] itegrp ??? +!> +!> @author Jun Wang @date Oct 8 2019 +subroutine post_alctvars(imi,jmi,lmi,mype,nwtlpes,lead_write, mpicomp, & + jts,jte,jtsgrp,jtegrp,its,ite,itsgrp,itegrp) use vrbls4d use vrbls3d use vrbls2d @@ -215,11 +229,18 @@ subroutine post_alctvars(imi,jmi,lmi,mype,nwtlpes,lead_write, mpicomp, & end do end do end subroutine post_alctvars -! -!--------------------------------------------------------------------- -!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& -!--------------------------------------------------------------------- -! + + !> Read post namelist. + !> + !> @param[in] kpo ??? + !> @param[in] kth ??? + !> @param[in] kpv ??? + !> @param[in] po ??? + !> @param[in] th ??? + !> @param[in] pv ??? + !> @param[in] post_namelist ??? + !> + !> @author Jun Wang @date Jul 2019 subroutine read_postnmlt(kpo,kth,kpv,po,th,pv,post_namelist) ! use ctlblk_mod, only : komax,fileNameD3D,lsm,lsmp1,spl,spldef, & @@ -228,10 +249,6 @@ subroutine read_postnmlt(kpo,kth,kpv,po,th,pv,post_namelist) isf_surface_physics,modelname,submodelname,& rdaod,d2d_chem,nasa_on,gccpp_on use upp_ifi_mod, only: write_ifi_debug_files -! -! revision history: -! Jul 2019 Jun Wang: read post namelist -! implicit none !--- character (len=*), intent(in) :: post_namelist @@ -335,16 +352,13 @@ subroutine read_postnmlt(kpo,kth,kpv,po,th,pv,post_namelist) 1000 continue end subroutine read_postnmlt -! -!--------------------------------------------------------------------- -!&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& -!--------------------------------------------------------------------- -! + + !> ??? + !> + !> @param[in] post_gribversion ??? + !> + !> @author Jun Wang @date Jul 2019 subroutine post_finalize(post_gribversion) -! -! revision history: -! Jul 2019 Jun Wang: finalize post step -! use grib2_module, only : grib_info_finalize ! character(*),intent(in) :: post_gribversion From 49ee7e054381ef3e88e403d01260194b1016618d Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Thu, 18 Jan 2024 08:04:10 -0700 Subject: [PATCH 2/6] more doxygen changes --- io/post_nems_routines.F90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/io/post_nems_routines.F90 b/io/post_nems_routines.F90 index 4fc88d91c..6f780413e 100644 --- a/io/post_nems_routines.F90 +++ b/io/post_nems_routines.F90 @@ -5,7 +5,9 @@ !> Allocate post variables. !> !> ## Subroutine History +!> !> Date | Programmer | Modification +!> -----|------------|------------- !> Jul 2019 | Jun Wang | allocate arrays for post processing !> Feb 2022 | J. Meng/B. Cui | create interface to run inline post with post_2d_decomp !> @@ -353,7 +355,7 @@ subroutine read_postnmlt(kpo,kth,kpv,po,th,pv,post_namelist) end subroutine read_postnmlt - !> ??? + !> Finalize post step. !> !> @param[in] post_gribversion ??? !> From b690bf2d7d95e77b2edf33823f23320194f1e34e Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Thu, 18 Jan 2024 10:29:39 -0700 Subject: [PATCH 3/6] minor documentation fix --- io/post_fv3.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/io/post_fv3.F90 b/io/post_fv3.F90 index beb445653..9f9efee0d 100644 --- a/io/post_fv3.F90 +++ b/io/post_fv3.F90 @@ -1,5 +1,5 @@ -!> @file Run post on write grid comp. -!> @brief ??? +!> @file +!> @brief Run post on write grid comp. !> @author Jun Wang @date Jul, 2019 !> @brief Run post on write grid comp. From 91522936ff512421b18c292e2a24d898eb17e197 Mon Sep 17 00:00:00 2001 From: Jun Wang Date: Sat, 20 Jan 2024 02:20:50 +0000 Subject: [PATCH 4/6] update post document --- io/post_fv3.F90 | 40 ++++++++++++++++---------------- io/post_nems_routines.F90 | 48 +++++++++++++++++++-------------------- 2 files changed, 44 insertions(+), 44 deletions(-) diff --git a/io/post_fv3.F90 b/io/post_fv3.F90 index 9f9efee0d..c7e9426a4 100644 --- a/io/post_fv3.F90 +++ b/io/post_fv3.F90 @@ -33,22 +33,22 @@ module post_fv3 implicit none - public post_run_fv3 !< ??? + public post_run_fv3 !< Interface to run inline post contains - !> ??? + !> Interface to run inline post !> - !> @param[in] wrt_int_state ??? - !> @param[in] grid_id ??? - !> @param[in] mype ??? - !> @param[in] mpicomp ??? - !> @param[in] lead_write ??? - !> @param[in] itasks ??? - !> @param[in] jtasks ??? - !> @param[in] mynfhr ??? - !> @param[in] mynfmin ??? - !> @param[in] mynfsec + !> @param[in] wrt_int_state write grid component internal state + !> @param[in] grid_id id number of the output grid + !> @param[in] mype MPI rank + !> @param[in] mpicomp MPI communicator of the write grid component + !> @param[in] lead_write lead task of the write group + !> @param[in] itasks number of MPI tasks in i direction of output domain + !> @param[in] jtasks number of MPI tasks in j direction of output domain + !> @param[in] mynfhr output forecast hours on the write grid component + !> @param[in] mynfmin output forecast minutes on the write grid component + !> @param[in] mynfsec output forecast secondson the write grid component !> !> @author Jun Wang @date Jul, 2019 subroutine post_run_fv3(wrt_int_state,grid_id,mype,mpicomp,lead_write, & @@ -230,10 +230,10 @@ subroutine post_run_fv3(wrt_int_state,grid_id,mype,mpicomp,lead_write, & end subroutine post_run_fv3 - !> ??? + !> Subroutine to get attributes for post processing !> - !> @param[in] wrt_int_state ??? - !> @param[in] grid_id ??? + !> @param[in] wrt_int_state write grid component internal state + !> @param[in] grid_id id number of the output grid !> !> @author Jun Wang @date Jul, 2019 subroutine post_getattr_fv3(wrt_int_state,grid_id) @@ -504,12 +504,12 @@ subroutine post_getattr_fv3(wrt_int_state,grid_id) ! end subroutine post_getattr_fv3 - !> ??? + !> Subroutine to set post variables !> - !> @param[in] wrt_int_state ??? - !> @param[in] grid_id ??? - !> @param[in] mype ??? - !> @param[in] mpicomp + !> @param[in] wrt_int_state write grid component internal state + !> @param[in] grid_id id number of the output grid + !> @param[in] mype MPI rank + !> @param[in] mpicomp MPI communicator of the write grid component !> !> @author Jun Wang @date Jul 2019 subroutine set_postvars_fv3(wrt_int_state,grid_id,mype,mpicomp) diff --git a/io/post_nems_routines.F90 b/io/post_nems_routines.F90 index 6f780413e..4685067aa 100644 --- a/io/post_nems_routines.F90 +++ b/io/post_nems_routines.F90 @@ -1,5 +1,5 @@ !> @file -!> @brief ??? +!> @brief miscellaneous subroutines to support inline post !> @author Jun Wang @date Oct 8, 2019 !> Allocate post variables. @@ -11,21 +11,21 @@ !> Jul 2019 | Jun Wang | allocate arrays for post processing !> Feb 2022 | J. Meng/B. Cui | create interface to run inline post with post_2d_decomp !> -!> @param[in] imi ??? -!> @param[in] jmi ??? -!> @param[in] lmi ??? -!> @param[in] mype ??? -!> @param[in] nwtlpes ??? -!> @param[in] lead_write ??? -!> @param[in] mpicomp ??? -!> @param[in] jts ??? -!> @param[in] jte ??? -!> @param[in] jtsgrp ??? -!> @param[in] jtegrp ??? -!> @param[in] its ??? -!> @param[in] ite ??? -!> @param[in] itsgrp ??? -!> @param[in] itegrp ??? +!> @param[in] imi i dimension size of the output grid +!> @param[in] jmi j dimension size of the output grid +!> @param[in] lmi l (layer) dimension size of the output grid +!> @param[in] mype MPI rank +!> @param[in] nwtlpes number of write tasks in the write group +!> @param[in] lead_write lead task of the write group +!> @param[in] mpicomp MPI communicator of the write grid component +!> @param[in] jts start index in j dimention in a task subdomain +!> @param[in] jte end index in j dimention in a task subdomain +!> @param[in] jtsgrp start index in j dimention of all write tasks +!> @param[in] jtegrp end idex in j dimention of all write tasks +!> @param[in] its start index in i dimention in a task subdomain +!> @param[in] ite end index in j dimention in a task subdomain +!> @param[in] itsgrp start index in i dimention of all write tasks +!> @param[in] itegrp end idex in i dimention of all write tasks !> !> @author Jun Wang @date Oct 8 2019 subroutine post_alctvars(imi,jmi,lmi,mype,nwtlpes,lead_write, mpicomp, & @@ -234,13 +234,13 @@ end subroutine post_alctvars !> Read post namelist. !> - !> @param[in] kpo ??? - !> @param[in] kth ??? - !> @param[in] kpv ??? - !> @param[in] po ??? - !> @param[in] th ??? - !> @param[in] pv ??? - !> @param[in] post_namelist ??? + !> @param[in] kpo number of pressure levels + !> @param[in] kth number of isentropic levels + !> @param[in] kpv number of potential vorticity levels + !> @param[in] po pressure levels to output + !> @param[in] th isentropic levels to output + !> @param[in] pv potential vorticity levels to output + !> @param[in] post_namelist post namelist array !> !> @author Jun Wang @date Jul 2019 subroutine read_postnmlt(kpo,kth,kpv,po,th,pv,post_namelist) @@ -357,7 +357,7 @@ end subroutine read_postnmlt !> Finalize post step. !> - !> @param[in] post_gribversion ??? + !> @param[in] post_gribversion grib version(1 or 2) used in post !> !> @author Jun Wang @date Jul 2019 subroutine post_finalize(post_gribversion) From 8e7d6e654b28921069c28e2b2951989a622c7553 Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Wed, 24 Jan 2024 06:46:50 -0700 Subject: [PATCH 5/6] minor changes --- io/post_nems_routines.F90 | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/io/post_nems_routines.F90 b/io/post_nems_routines.F90 index 4685067aa..6028f6336 100644 --- a/io/post_nems_routines.F90 +++ b/io/post_nems_routines.F90 @@ -11,21 +11,21 @@ !> Jul 2019 | Jun Wang | allocate arrays for post processing !> Feb 2022 | J. Meng/B. Cui | create interface to run inline post with post_2d_decomp !> -!> @param[in] imi i dimension size of the output grid -!> @param[in] jmi j dimension size of the output grid -!> @param[in] lmi l (layer) dimension size of the output grid -!> @param[in] mype MPI rank -!> @param[in] nwtlpes number of write tasks in the write group -!> @param[in] lead_write lead task of the write group -!> @param[in] mpicomp MPI communicator of the write grid component -!> @param[in] jts start index in j dimention in a task subdomain -!> @param[in] jte end index in j dimention in a task subdomain -!> @param[in] jtsgrp start index in j dimention of all write tasks -!> @param[in] jtegrp end idex in j dimention of all write tasks -!> @param[in] its start index in i dimention in a task subdomain -!> @param[in] ite end index in j dimention in a task subdomain -!> @param[in] itsgrp start index in i dimention of all write tasks -!> @param[in] itegrp end idex in i dimention of all write tasks +!> @param[in] imi i dimension size of the output grid. +!> @param[in] jmi j dimension size of the output grid. +!> @param[in] lmi l (layer) dimension size of the output grid. +!> @param[in] mype MPI rank. +!> @param[in] nwtlpes number of write tasks in the write group. +!> @param[in] lead_write lead task of the write group. +!> @param[in] mpicomp MPI communicator of the write grid component. +!> @param[in] jts start index in j dimention in a task subdomain. +!> @param[in] jte end index in j dimention in a task subdomain. +!> @param[in] jtsgrp start index in j dimention of all write tasks. +!> @param[in] jtegrp end index in j dimention of all write tasks. +!> @param[in] its start index in i dimention in a task subdomain. +!> @param[in] ite end index in j dimention in a task subdomain. +!> @param[in] itsgrp start index in i dimention of all write tasks. +!> @param[in] itegrp end idex in i dimention of all write tasks. !> !> @author Jun Wang @date Oct 8 2019 subroutine post_alctvars(imi,jmi,lmi,mype,nwtlpes,lead_write, mpicomp, & From 3b7004d0d2b7c60ff251d62af6ff0d41281449e6 Mon Sep 17 00:00:00 2001 From: Edward Hartnett Date: Wed, 24 Jan 2024 06:54:25 -0700 Subject: [PATCH 6/6] fixes --- io/post_fv3.F90 | 38 +++++++++++++++++++------------------- io/post_nems_routines.F90 | 18 +++++++++--------- 2 files changed, 28 insertions(+), 28 deletions(-) diff --git a/io/post_fv3.F90 b/io/post_fv3.F90 index c7e9426a4..1105432ca 100644 --- a/io/post_fv3.F90 +++ b/io/post_fv3.F90 @@ -37,18 +37,18 @@ module post_fv3 contains - !> Interface to run inline post + !> Interface to run inline post. !> - !> @param[in] wrt_int_state write grid component internal state - !> @param[in] grid_id id number of the output grid - !> @param[in] mype MPI rank - !> @param[in] mpicomp MPI communicator of the write grid component - !> @param[in] lead_write lead task of the write group - !> @param[in] itasks number of MPI tasks in i direction of output domain - !> @param[in] jtasks number of MPI tasks in j direction of output domain - !> @param[in] mynfhr output forecast hours on the write grid component - !> @param[in] mynfmin output forecast minutes on the write grid component - !> @param[in] mynfsec output forecast secondson the write grid component + !> @param[in] wrt_int_state write grid component internal state. + !> @param[in] grid_id id number of the output grid. + !> @param[in] mype MPI rank. + !> @param[in] mpicomp MPI communicator of the write grid component. + !> @param[in] lead_write lead task of the write group. + !> @param[in] itasks number of MPI tasks in i direction of output domain. + !> @param[in] jtasks number of MPI tasks in j direction of output domain. + !> @param[in] mynfhr output forecast hours on the write grid component. + !> @param[in] mynfmin output forecast minutes on the write grid component. + !> @param[in] mynfsec output forecast secondson the write grid component. !> !> @author Jun Wang @date Jul, 2019 subroutine post_run_fv3(wrt_int_state,grid_id,mype,mpicomp,lead_write, & @@ -230,10 +230,10 @@ subroutine post_run_fv3(wrt_int_state,grid_id,mype,mpicomp,lead_write, & end subroutine post_run_fv3 - !> Subroutine to get attributes for post processing + !> Subroutine to get attributes for post processing. !> - !> @param[in] wrt_int_state write grid component internal state - !> @param[in] grid_id id number of the output grid + !> @param[in] wrt_int_state write grid component internal state. + !> @param[in] grid_id id number of the output grid. !> !> @author Jun Wang @date Jul, 2019 subroutine post_getattr_fv3(wrt_int_state,grid_id) @@ -504,12 +504,12 @@ subroutine post_getattr_fv3(wrt_int_state,grid_id) ! end subroutine post_getattr_fv3 - !> Subroutine to set post variables + !> Subroutine to set post variables. !> - !> @param[in] wrt_int_state write grid component internal state - !> @param[in] grid_id id number of the output grid - !> @param[in] mype MPI rank - !> @param[in] mpicomp MPI communicator of the write grid component + !> @param[in] wrt_int_state write grid component internal state. + !> @param[in] grid_id id number of the output grid. + !> @param[in] mype MPI rank. + !> @param[in] mpicomp MPI communicator of the write grid component. !> !> @author Jun Wang @date Jul 2019 subroutine set_postvars_fv3(wrt_int_state,grid_id,mype,mpicomp) diff --git a/io/post_nems_routines.F90 b/io/post_nems_routines.F90 index 6028f6336..8234a5c23 100644 --- a/io/post_nems_routines.F90 +++ b/io/post_nems_routines.F90 @@ -1,5 +1,5 @@ !> @file -!> @brief miscellaneous subroutines to support inline post +!> @brief Miscellaneous subroutines to support inline post. !> @author Jun Wang @date Oct 8, 2019 !> Allocate post variables. @@ -234,13 +234,13 @@ end subroutine post_alctvars !> Read post namelist. !> - !> @param[in] kpo number of pressure levels - !> @param[in] kth number of isentropic levels - !> @param[in] kpv number of potential vorticity levels - !> @param[in] po pressure levels to output - !> @param[in] th isentropic levels to output - !> @param[in] pv potential vorticity levels to output - !> @param[in] post_namelist post namelist array + !> @param[in] kpo number of pressure levels. + !> @param[in] kth number of isentropic levels. + !> @param[in] kpv number of potential vorticity levels. + !> @param[in] po pressure levels to output. + !> @param[in] th isentropic levels to output. + !> @param[in] pv potential vorticity levels to output. + !> @param[in] post_namelist post namelist array. !> !> @author Jun Wang @date Jul 2019 subroutine read_postnmlt(kpo,kth,kpv,po,th,pv,post_namelist) @@ -357,7 +357,7 @@ end subroutine read_postnmlt !> Finalize post step. !> - !> @param[in] post_gribversion grib version(1 or 2) used in post + !> @param[in] post_gribversion grib version(1 or 2) used in post. !> !> @author Jun Wang @date Jul 2019 subroutine post_finalize(post_gribversion)