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

rename Fogg rofi to Fgrg_rofi #288

Merged
merged 3 commits into from
Jun 28, 2024
Merged

rename Fogg rofi to Fgrg_rofi #288

Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
b81072a
renamed Fogg_rofi to Fgrg_rofi
Jun 28, 2024
0ef61ff
Merge branch 'main' into feature/rename_fogg_rofi
Jun 28, 2024
3051147
merge to main
Jun 28, 2024
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
16 changes: 8 additions & 8 deletions dglc/dglc_datamode_noevolve_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -40,7 +40,7 @@ module dglc_datamode_noevolve_mod
type(icesheet_ptr_t), allocatable :: Sg_ice_covered(:)
type(icesheet_ptr_t), allocatable :: Sg_icemask(:)
type(icesheet_ptr_t), allocatable :: Sg_icemask_coupled_fluxes(:)
type(icesheet_ptr_t), allocatable :: Fogg_rofi(:)
type(icesheet_ptr_t), allocatable :: Fgrg_rofi(:)

! Import fields
integer, parameter :: nlev_import = 30
Expand All @@ -55,7 +55,7 @@ module dglc_datamode_noevolve_mod
character(len=*), parameter :: field_out_ice_covered = 'Sg_ice_covered'
character(len=*), parameter :: field_out_icemask = 'Sg_icemask'
character(len=*), parameter :: field_out_icemask_coupled_fluxes = 'Sg_icemask_coupled_fluxes'
character(len=*), parameter :: field_out_rofi = 'Fogg_rofi'
character(len=*), parameter :: field_out_rofi = 'Fgrg_rofi'

! Import Field names
character(len=*), parameter :: field_in_tsrf = 'Sl_tsrf'
Expand Down Expand Up @@ -162,7 +162,7 @@ subroutine dglc_datamode_noevolve_init_pointers(NStateExp, NstateImp, rc)
allocate(Sg_ice_covered(num_icesheets))
allocate(Sg_icemask(num_icesheets))
allocate(Sg_icemask_coupled_fluxes(num_icesheets))
allocate(Fogg_rofi(num_icesheets))
allocate(Fgrg_rofi(num_icesheets))

do ns = 1,num_icesheets
call dshr_state_getfldptr(NStateExp(ns), field_out_area, fldptr1=Sg_area(ns)%ptr, rc=rc)
Expand All @@ -175,10 +175,10 @@ subroutine dglc_datamode_noevolve_init_pointers(NStateExp, NstateImp, rc)
if (chkerr(rc,__LINE__,u_FILE_u)) return
call dshr_state_getfldptr(NStateExp(ns), field_out_icemask_coupled_fluxes, fldptr1=Sg_icemask_coupled_fluxes(ns)%ptr, rc=rc)
if (chkerr(rc,__LINE__,u_FILE_u)) return
call dshr_state_getfldptr(NStateExp(ns), field_out_rofi, fldptr1=Fogg_rofi(ns)%ptr, rc=rc)
call dshr_state_getfldptr(NStateExp(ns), field_out_rofi, fldptr1=Fgrg_rofi(ns)%ptr, rc=rc)
if (chkerr(rc,__LINE__,u_FILE_u)) return

Fogg_rofi(ns)%ptr(:) = 0._r8
Fgrg_rofi(ns)%ptr(:) = 0._r8
end do

! initialize pointers to import fields if appropriate
Expand Down Expand Up @@ -370,10 +370,10 @@ subroutine dglc_datamode_noevolve_advance(pio_subsystem, io_type, io_format, &
end if

if (initialized_noevolve) then
! Compute Fogg_rofi
! Compute Fgrg_rofi
do ns = 1,num_icesheets
do ng = 1,size(Fogg_rofi(ns)%ptr)
Fogg_rofi(ns)%ptr(ng) = Flgl_qice(ns)%ptr(ng)
do ng = 1,size(Fgrg_rofi(ns)%ptr)
Fgrg_rofi(ns)%ptr(ng) = Flgl_qice(ns)%ptr(ng)
end do
end do
end if
Expand Down
Loading