Skip to content

Create wrfdata_mod #24

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

Merged
pedro-jm merged 3 commits into from
Feb 4, 2026
Merged

Create wrfdata_mod #24

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
3611667
Splits wrf_mod to create wrfdata_mod
pedro-jm Feb 2, 2026
e7bba1b
Refine use vars + order procedures
pedro-jm Feb 2, 2026
af147f4
Rename wrf_t to wrfdata_t
pedro-jm Feb 2, 2026
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
1 change: 1 addition & 0 deletions CMakeLists.txt
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -77,6 +77,7 @@ list(APPEND _io_files io/namelist_mod.F90
io/coupling_mod.F90
io/geogrid_mod.F90
io/wrf_mod.F90
io/wrfdata_mod.F90
io/netcdf_mod.F90
io/stderrout_mod.F90)

Expand Down
4 changes: 2 additions & 2 deletions driver/fire_behavior.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7,14 +7,14 @@ program fire_behavior
use namelist_mod, only : namelist_t
use initialize_mod, only : Init_fire_state, Init_atm_state
use advance_mod, only : Advance_state
use wrf_mod, only : wrf_t
use wrfdata_mod, only : wrfdata_t
use, intrinsic :: iso_fortran_env, only : ERROR_UNIT, OUTPUT_UNIT

implicit none

integer :: ierr, rank
type (state_fire_t) :: grid
type (wrf_t) :: atm_state
type (wrfdata_t) :: atm_state
type (namelist_t) :: config_flags
logical, parameter :: DEBUG_LOCAL = .false.

Expand Down
8 changes: 4 additions & 4 deletions driver/initialize_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@ module initialize_mod
use state_mod, only : state_fire_t
use namelist_mod, only : namelist_t
use geogrid_mod, only : geogrid_t
use wrf_mod, only : wrf_t
use wrfdata_mod, only : wrfdata_t
use fire_driver_mod, only : Init_fire_components
use stderrout_mod, only: Print_message

Expand All @@ -17,15 +17,15 @@ subroutine Init_atm_state (atm_state, config_flags)

implicit none

type (wrf_t), intent (in out) :: atm_state
type (wrfdata_t), intent (in out) :: atm_state
type (namelist_t), intent (in) :: config_flags

logical, parameter :: DEBUG_LOCAL = .false.


if (DEBUG_LOCAL) call Print_message (' Entering subroutine Init_atm_state')

atm_state = wrf_t ('wrf.nc', config_flags)
atm_state = wrfdata_t ('wrf.nc', config_flags)

if (DEBUG_LOCAL) call Print_message (' Leaving subroutine Init_atm_state')

Expand All @@ -41,7 +41,7 @@ subroutine Init_fire_state (grid, config_flags, wrf)

type (state_fire_t), intent (in out) :: grid
type (namelist_t), intent (in) :: config_flags
type (wrf_t), intent (in out), optional :: wrf
type (wrfdata_t), intent (in out), optional :: wrf

type (geogrid_t) :: geogrid
logical, parameter :: DEBUG_LOCAL = .false.
Expand Down
Loading