Fix typo, remove bad outfld call

gold2718 · Feb 10, 2025 · 016a2cc · 016a2cc
1 parent 3d7fb9e
commit 016a2cc
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 7 deletions.
diff --git a/src/cpl/nuopc/atm_import_export.F90 b/src/cpl/nuopc/atm_import_export.F90
@@ -15,7 +15,6 @@ module atm_import_export
   use cam_logfile       , only : iulog
   use cam_history       , only: outfld
   use spmd_utils        , only : masterproc, mpicom
-  use constituents      , only : cnst_get_ind, sflxnam
   use srf_field_check   , only : set_active_Sl_ram1
   use srf_field_check   , only : set_active_Sl_fv
   use srf_field_check   , only : set_active_Sl_soilw
@@ -555,7 +554,6 @@ subroutine import_fields( gcomp, cam_in, restart_init, rc)
     ! local variables
     type(ESMF_State)   :: importState
     integer            :: i,n,c,g, num  ! indices
-    integer            :: ncols         ! number of columns
     integer            :: nstep
     logical            :: overwrite_flds
     logical            :: exists
@@ -893,7 +891,6 @@ subroutine import_fields( gcomp, cam_in, restart_init, rc)
 
     call state_getfldptr(importState,  'Faoo_fdms_ocn', fldptr=fldptr1d, exists=exists, rc=rc)
     if (exists) then
-       call cnst_get_ind('DMS', pndx_fdms, abort=.true.)
        ! Ideally what should happen below is that
        ! cam_in%cflx(icol,pndx_fdms) should be set directly from
        ! fldptr1d. However, the code initializes the chemistry
@@ -908,8 +905,6 @@ subroutine import_fields( gcomp, cam_in, restart_init, rc)
              cam_in(c)%fdms(i) = -fldptr1d(g) * med2mod_areacor(g)
              g = g + 1
           end do
-          ncols = get_ncols_p(c)
-          call outfld( sflxnam(pndx_fdms), cam_in(c)%fdms, ncols, c)
        end do
     end if
 
@@ -1046,7 +1041,6 @@ subroutine export_fields( gcomp, model_mesh, model_clock, cam_out, rc)
     type(ESMF_State)  :: importState
     type(ESMF_Clock)  :: clock
     integer           :: i,m,c,n,g  ! indices
-    integer           :: ncols      ! Number of columns
     integer           :: nstep
     logical           :: exists
     real(r8)          :: scale_ndep

diff --git a/src/physics/cam/restart_physics.F90 b/src/physics/cam/restart_physics.F90
@@ -348,7 +348,7 @@ subroutine write_restart_physics (File, cam_in, cam_out, pbuf2d)
         ncol = cam_in(i)%ncol
         tmpfield(:ncol,i) = cam_in(i)%fbrf(:ncol)
       end do
-      call pio_write_darray(File, fbrf_desc_desc, iodesc, tmpfield, ierr)
+      call pio_write_darray(File, fbrf_desc, iodesc, tmpfield, ierr)
 
       do i = begchunk, endchunk
         ncol = cam_in(i)%ncol