comment out unused vars

ESCOMP · May 14, 2024 · 472b568 · 472b568
1 parent ca2d62b
commit 472b568
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/dglc/dglc_datamode_noevolve_mod.F90 b/dglc/dglc_datamode_noevolve_mod.F90
@@ -46,8 +46,8 @@ module dglc_datamode_noevolve_mod
  integer, parameter :: nlev_import = 30
  type(icesheet_ptr_t), allocatable :: Sl_tsrf(:)
  type(icesheet_ptr_t), allocatable :: Flgl_qice(:)
- type(icesheet_ptr_t), allocatable :: So_t(:)
- type(icesheet_ptr_t), allocatable :: So_q(:)
+! type(icesheet_ptr_t), allocatable :: So_t(:)
+! type(icesheet_ptr_t), allocatable :: So_q(:)
 
  ! Export Field names
  character(len=*), parameter :: field_out_area = 'Sg_area'