fixed compilation issues

mvertens · Jul 1, 2024 · c1b868a · c1b868a
1 parent 31d580a
commit c1b868a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/cpl/nuopc/atm_import_export.F90 b/src/cpl/nuopc/atm_import_export.F90
@@ -911,7 +911,7 @@ subroutine import_fields( gcomp, cam_in, restart_init, rc)
        g = 1
        do c = begchunk,endchunk
           do i = 1,get_ncols_p(c)
-             cam_in(c)%fn2o(i) = -fldptr1d(g) * med2mod_areacor(g)
+             cam_in(c)%fn2o_ocn(i) = -fldptr1d(g) * med2mod_areacor(g)
              g = g + 1
           end do
        end do
@@ -922,7 +922,7 @@ subroutine import_fields( gcomp, cam_in, restart_init, rc)
        g = 1
        do c = begchunk,endchunk
           do i = 1,get_ncols_p(c)
-             cam_in(c)%fnh3(i) = -fldptr1d(g) * med2mod_areacor(g)
+             cam_in(c)%fnh3_ocn(i) = -fldptr1d(g) * med2mod_areacor(g)
              g = g + 1
           end do
        end do