Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

make variables using filename_base consistant in length #43

Merged
merged 3 commits into from
Jan 15, 2020
Merged

make variables using filename_base consistant in length #43

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
eb0ad21
make variables using filename_base consistant in length
jedwards4b Jan 15, 2020
4a3b865
replace max_filename_len with esmf_maxstr
jedwards4b Jan 15, 2020
c91306c
fix syntax
jedwards4b Jan 15, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion fv3_cap.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -74,7 +74,7 @@ module fv3gfs_cap_mod

type(ESMF_GridComp) :: fcstComp
type(ESMF_State) :: fcstState
character(len=80), allocatable :: fcstItemNameList(:)
character(len=esmf_maxstr),allocatable :: fcstItemNameList(:)
type(ESMF_StateItem_Flag), allocatable :: fcstItemTypeList(:)
type(ESMF_FieldBundle), allocatable :: fcstFB(:)
integer, save :: FBCount
Expand Down
7 changes: 4 additions & 3 deletions io/module_fv3_io_def.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7,6 +7,7 @@ module module_fv3_io_def
!
!------------------------------------------------------------------------
!
use esmf, only : esmf_maxstr
implicit none
!
integer :: num_pes_fcst
Expand All @@ -15,14 +16,14 @@ module module_fv3_io_def
logical :: write_nemsioflip
logical :: write_fsyncflag
integer :: num_files
character(255) :: output_grid
character(255) :: output_file
character(len=esmf_maxstr) :: output_grid
character(len=esmf_maxstr) :: output_file
integer :: imo,jmo
integer :: nbdlphys
integer :: nsout_io, iau_offset, ideflate, nbits
real :: cen_lon, cen_lat, lon1, lat1, lon2, lat2, dlon, dlat
real :: stdlat1, stdlat2, dx, dy
character(255),dimension(:),allocatable :: filename_base
character(len=esmf_maxstr),dimension(:),allocatable :: filename_base
!
integer,dimension(:),allocatable :: lead_wrttask, last_wrttask
!
Expand Down
6 changes: 3 additions & 3 deletions io/module_wrt_grid_comp.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -56,7 +56,7 @@ module module_wrt_grid_comp
!
!-----------------------------------------------------------------------
!
integer,parameter :: filename_maxstr=255

real, parameter :: rdgas=287.04, grav=9.80
real, parameter :: stndrd_atmos_ps = 101325.
real, parameter :: stndrd_atmos_lapse = 0.0065
Expand All @@ -77,7 +77,7 @@ module module_wrt_grid_comp
type(wrt_internal_state),pointer :: wrt_int_state ! The internal state pointer.
type(ESMF_FieldBundle) :: gridFB
integer :: FBcount
character(len=80),allocatable :: fcstItemNameList(:)
character(len=esmf_maxstr),allocatable :: fcstItemNameList(:)
!
!-----------------------------------------------------------------------
REAL(KIND=8) :: btim,btim0
Expand Down Expand Up @@ -1155,7 +1155,7 @@ subroutine wrt_run(wrt_comp, imp_state_write, exp_state_write,clock,rc)
logical,save :: first=.true.
logical,save :: file_first=.true.
!
character(filename_maxstr) :: filename,compname,bundle_name
character(esmf_maxstr) :: filename,compname,bundle_name
character(40) :: cfhour, cform
character(10) :: stepString
character(80) :: attrValueS
Expand Down
3 changes: 2 additions & 1 deletion module_fcst_grid_comp.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -189,7 +189,8 @@ subroutine fcst_initialize(fcst_comp, importState, exportState, clock, rc)
character(3) cfhour
character(4) dateSY
character(2) dateSM,dateSD,dateSH,dateSN,dateSS
character(128) name_FB, name_FB1, dateS
character(len=esmf_maxstr) name_FB, name_FB1
character(len=80) :: dateS
real, allocatable, dimension(:,:) :: glon_bnd, glat_bnd

character(256) :: gridfile
Expand Down