Debug

CoLM-SYSU · Sep 4, 2024 · c305096 · c305096
1 parent 54dd23c
commit c305096
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/main/MOD_Forcing.F90 b/main/MOD_Forcing.F90
@@ -841,9 +841,9 @@ SUBROUTINE read_forcing (idate, dir_forcing)
          ! Conservation of short- and long- waves radiation in the grid of forcing
          CALL mg2p_forc%normalize (forc_xy_solarin, forc_swrad_part)
          CALL mg2p_forc%normalize (forc_xy_frl,     forc_frl_part  )
-#endif
          CALL mg2p_forc%part2pset (forc_frl_part,    forc_frl   )
          CALL mg2p_forc%part2pset (forc_swrad_part,  forc_swrad )
+#endif
 
          ! divide fractions of downscaled shortwave radiation 
          IF (p_is_worker) THEN