fixes for history output

mvertens · Nov 2, 2024 · 9690779 · 9690779
1 parent 2f69e51
commit 9690779
Showing 1 changed file with 10 additions and 6 deletions.
diff --git a/src/cpl/nuopc/lnd_import_export.F90 b/src/cpl/nuopc/lnd_import_export.F90
@@ -919,10 +919,15 @@ subroutine export_fields( gcomp, bounds, glc_present, rof_prognostic, &
           rofl2d(:,:) = 0._r8
           do nt = 1,nflds_lnd2rof_tracers
              call shr_string_listGetName(lnd2rof_tracers, nt, fldname)
-             if (trim(fldname) == 'testfld') then
+             ! Temporary test fields
+             if (nt == 1) then
                 do g = begg,endg
                    rofl2d(g,nt) = cos(grc%latdeg(g))
                 end do
+             else if (nt == 2) then
+                do g = begg,endg
+                   rofl2d(g,nt) = sin(grc%latdeg(g))
+                end do
              end if
           end do
           call state_setexport_2d(exportState, Flrl_rofsur_nonh2o, rofl2d, init_spval=.true., rc=rc)
@@ -931,11 +936,10 @@ subroutine export_fields( gcomp, bounds, glc_present, rof_prognostic, &
        else if (nflds_lnd2rof_tracers == 1) then
           allocate(rofl1d(begg:endg))
           rofl1d(:) = 0._r8
-          if (trim(lnd2rof_tracers) == 'testfld') then
-             do g = begg,endg
-                rofl1d(g) = cos(grc%latdeg(g))
-             end do
-          end if
+          ! Temporary test field
+          do g = begg,endg
+             rofl1d(g) = cos(grc%latdeg(g))
+          end do
           call state_setexport_1d(exportState, Flrl_rofsur_nonh2o, rofl1d, init_spval=.true., rc=rc)
           if (ChkErr(rc,__LINE__,u_FILE_u)) return
           deallocate(rofl1d)