Merge pull request #288 from mvertens/feature/rename_fogg_rofi

rename Fogg rofi to Fgrg_rofi
ESCOMP · Jun 28, 2024 · 453a9d1 · 453a9d1
2 parents f0eceab + 3051147
commit 453a9d1
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/dglc/dglc_datamode_noevolve_mod.F90 b/dglc/dglc_datamode_noevolve_mod.F90
@@ -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
@@ -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'
@@ -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)
@@ -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
@@ -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