From f208cb87ed395be09ad94c03acd482748beb78ac Mon Sep 17 00:00:00 2001 From: jessica needham Date: Mon, 9 Sep 2024 06:25:50 -0700 Subject: [PATCH] fix write of inventory init --- main/FatesInventoryInitMod.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/main/FatesInventoryInitMod.F90 b/main/FatesInventoryInitMod.F90 index 22a48537b5..2ca4c3554f 100644 --- a/main/FatesInventoryInitMod.F90 +++ b/main/FatesInventoryInitMod.F90 @@ -1179,10 +1179,10 @@ subroutine write_inventory_type1(currentSite) else ilon_sign = 'W' end if - - write(pss_name_out,'(A8, I2.2, A1, I5.5, A1)') & + + write(pss_name_out,'(A8,I2.2,A1,I5.5,A1,A1,I3.3,A1,I5.5,A1,A4)') & 'pss_out_',ilat_int,'.',ilat_dec,ilat_sign,'_',ilon_int,'.',ilon_dec,ilon_sign,'.txt' - write(css_name_out,'(A8, I2.2, A1, A1, I3.3, A1)') & + write(css_name_out,'(A8,I2.2,A1,I5.5,A1,A1,I3.3,A1,I5.5,A1,A4)') & 'css_out_',ilat_int,'.',ilat_dec,ilat_sign,'_',ilon_int,'.',ilon_dec,ilon_sign,'.txt' pss_file_out = shr_file_getUnit() @@ -1208,7 +1208,7 @@ subroutine write_inventory_type1(currentSite) do while(associated(currentcohort)) icohort=icohort+1 write(css_file_out,*) '0000 ',trim(patch_str), & - currentCohort%dbh,currentCohort%height,currentCohort%pft,currentCohort%n/currentPatch%area + currentCohort%dbh,-3.0_r8,currentCohort%pft,currentCohort%n/currentPatch%area currentcohort => currentcohort%shorter end do