bugfix replace_surdat2tsmp.r calc pct_nat_pft

s-poll · s-poll · commit 49131711b4cc · 2025-01-29T17:45:42.000+01:00
diff --git a/mksurfdata/replace_surdat2tsmp.r b/mksurfdata/replace_surdat2tsmp.r
@@ -323,7 +323,7 @@ if (llc) {
    if (isumpft == 0){
      pct_nat_pft_new[ii,1] <- 100
    } else {
-     pct_nat_pft_new[ii,] <- pct_nat_pft_new[ii,]/isumcft*100
+     pct_nat_pft_new[ii,] <- pct_nat_pft_new[ii,]/isumpft*100
    } # if sumpft
  } # for ii
 
