Skip to content
This repository was archived by the owner on Jun 8, 2026. It is now read-only.

chgres_cube for wam cold start under global framework(not adding fetc… #1

Open
WChen-NOAA wants to merge 3 commits into
base: feature/gsm2fv3
Choose a base branch
from
Open

chgres_cube for wam cold start under global framework(not adding fetc… #1

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
daf777d
chgres_cube for wam cold start under global framework(not adding fetc…
WChen-NOAA Feb 27, 2023
329f82b
rm duplicate files and testing lines
WChen-NOAA Feb 27, 2023
0199040
rm testing lines in subroutine get_omega
WChen-NOAA Feb 27, 2023
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
6 changes: 4 additions & 2 deletions sorc/chgres_cube.fd/atmosphere.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -319,8 +319,10 @@ subroutine atmosphere_driver(localpet)
call vintg

if( wam_cold_start ) then
if (lev_input.lt.149) then
call vintg_wam (cycle_year,cycle_mon,cycle_day,cycle_hour)
endif
endif

!-----------------------------------------------------------------------------------
! Compute height.
Expand Down Expand Up @@ -807,7 +809,7 @@ subroutine newpr1(localpet)
real(esmf_kind_r8), allocatable :: pi(:,:,:)

print*,"COMPUTE 3-D PRESSURE FROM ADJUSTED SURFACE PRESSURE."

! for WAM idvc = 3, but vcoord(:,3)=0.0
idvc = 2 ! hard wire for now.
idsl = 2 ! hard wire for now.

Expand Down Expand Up @@ -2147,7 +2149,7 @@ subroutine compute_zh

enddo
enddo

print *,'zhptr',minval(zhptr),maxval(zhptr)
deallocate(pe0, pn0)

end subroutine compute_zh
Expand Down
Loading