Point to new write routine for noah-mp.

Fixes ufs-community#761.
GeorgeGayno-NOAA · Feb 9, 2023 · 0fb89c3 · 0fb89c3
1 parent c98feac
commit 0fb89c3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sorc/global_cycle.fd/cycle.f90 b/sorc/global_cycle.fd/cycle.f90
@@ -717,7 +717,7 @@ SUBROUTINE SFCDRV(LUGB, IDIM,JDIM,LSM,LENSFC,LSOIL,DELTSFC,  &
 
  IF (IS_NOAHMP) THEN
 
-   CALL WRITE_DATA_SELECTED_RECORDS(VEGFCS,LENSFC,IDIM,JDIM)
+   CALL WRITE_DATA_SELECTED_RECORDS2(LENSFC,IDIM,JDIM,LSOIL,DO_NSST,NSST,VEGFCS=VEGFCS)
 
  ELSE