From 969077961da7ad01af4c55999feb9203b82a4892 Mon Sep 17 00:00:00 2001 From: Mariana Vertenstein Date: Sat, 2 Nov 2024 15:02:51 +0100 Subject: [PATCH] fixes for history output --- src/cpl/nuopc/lnd_import_export.F90 | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/src/cpl/nuopc/lnd_import_export.F90 b/src/cpl/nuopc/lnd_import_export.F90 index 85a85f9fe5..897b963cc9 100644 --- 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)