From 7f29ff4889cd26b4f742fbeff1d3d843dc2eb2e4 Mon Sep 17 00:00:00 2001 From: GreyEvenson-NOAA Date: Thu, 31 Aug 2023 10:32:31 -0400 Subject: [PATCH] Revising noahowp_type subtype Init calls --- src/RunModule.f90 | 23 ++++++++--------------- 1 file changed, 8 insertions(+), 15 deletions(-) diff --git a/src/RunModule.f90 b/src/RunModule.f90 index f63a8379..e708fce3 100644 --- a/src/RunModule.f90 +++ b/src/RunModule.f90 @@ -349,22 +349,15 @@ SUBROUTINE solve_noahowp_grid(noahowpgrid) #endif !--------------------------------------------------------------------- - ! Initialize noahowp_type variables and transfer values for spatial constants + ! Initialize noahowp_type subtypes !--------------------------------------------------------------------- - call levels%Init(namelist) - call levels%InitTransfer(levelsgrid) - call domain%Init(namelist) - call domain%InitTransfer(domaingrid) - call options%Init(namelist) - call options%InitTransfer(optionsgrid) - call parameters%Init(namelist) - call parameters%InitTransfer(parametersgrid) - call forcing%Init(namelist) - call forcing%InitTransfer(forcinggrid) - call energy%Init(namelist) - call energy%InitTransfer(energygrid) - call water%Init(namelist) - call water%InitTransfer(watergrid) + call levels%Init (namelist, levelsgrid ) + call domain%Init (namelist, domaingrid ) + call options%Init (namelist, optionsgrid ) + call parameters%Init (namelist, parametersgrid) + call forcing%Init (namelist, forcinggrid ) + call energy%Init (namelist, energygrid ) + call water%Init (namelist, watergrid ) !--------------------------------------------------------------------- ! Iterate over x and y dimensions