Bug fix to ACSNOW calculation to output as accumulated depth (not rat…

…e). Add to retro IO option.
NCAR · Jan 24, 2023 · 0500f24 · 0500f24
1 parent 7c31c59
commit 0500f24
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/src/Land_models/NoahMP/phys/module_sf_noahmpdrv.F b/src/Land_models/NoahMP/phys/module_sf_noahmpdrv.F
@@ -1397,7 +1397,7 @@ SUBROUTINE noahmplsm(ITIMESTEP,        YR,   JULIAN,   COSZIN,   XLATIN,  & ! IN
              SNOW     (I,J)                = SWE
              SNOWH    (I,J)                = SNDPTH
              CANWAT   (I,J)                = CANLIQ + CANICE
-             ACSNOW   (I,J)                = ACSNOW(I,J) + PRCP * FPICE
+             ACSNOW   (I,J)                = ACSNOW(I,J) + PRCP*DT * FPICE ! mm
              ACSNOM   (I,J)                = ACSNOM(I,J) + QSNBOT*DT + PONDING + PONDING1 + PONDING2
              EMISS    (I,J)                = EMISSI
              QSFC     (I,J)                = QSFC1D

diff --git a/src/Routing/module_NWM_io.F b/src/Routing/module_NWM_io.F
@@ -1340,7 +1340,7 @@ subroutine output_NoahMP_NWM(outDir,iGrid,output_timestep,itime,startdate,date,i
                              0,0,0,0,0,0,0,0,0,0,& !31-40
                              0,0,0,0,1,0,0,0,0,0,& !41-50
                              0,0,0,0,0,0,0,0,0,0,& !51-60
-                             1,0,1,1,1,1,0,1,0,1,& !61-70
+                             1,0,1,1,1,1,0,1,1,1,& !61-70
                              0,0,0,0,0,0,0,0,0,0,& !71-80
                              0,0,0,0,0,0,0,0,0,1,& !81-90
                              0,0,0,0,0,1,1,1,&     !91-98
@@ -1359,7 +1359,7 @@ subroutine output_NoahMP_NWM(outDir,iGrid,output_timestep,itime,startdate,date,i
                              0,0,0,0,0,0,0,0,0,0,& !31-40
                              0,0,0,0,1,0,0,0,0,0,& !41-50
                              0,0,0,0,0,0,0,0,1,1,& !51-60
-                             1,0,1,1,1,1,1,1,0,1,& !61-70
+                             1,0,1,1,1,1,1,1,1,1,& !61-70
                              0,0,0,0,0,0,0,0,0,0,& !71-80
                              0,0,0,0,0,0,0,0,0,1,& !81-90
                              1,1,1,1,1,1,1,1,&     !91-98

diff --git a/src/Routing/module_NWM_io_dict.F b/src/Routing/module_NWM_io_dict.F
@@ -1422,7 +1422,7 @@ subroutine initLdasDict(ldasOutDict,procId,diagFlag)
                                  400.0d0, 400.0d0, 1.0d0, 1.0d0, 100000.0d0, &          !51-55
                                  1.0d0, 100.0d0, 100000.0d0, 100000.0d0, 400.0d0, &     !56-60
                                  1.0d0, 400.0d0, 1.0d0, 10000.0d0, 100000000.0d0, &     !61-65
-                                 100.0d0, 10.0d0, 1.0d0, 100000.0d0, 100000.0d0, &      !66-70
+                                 100.0d0, 10.0d0, 1.0d0, 1.0D+6, 100000.0d0, &          !66-70
                                  5.0d0, 5.0d0, 5.0d0, 5.0d0, 5.0d0, &                   !71-76
                                  5.0d0, 5.0d0, 5.0d0, 1000.0d0, 1000.0d0, &             !76-80
                                  1000.0d0, 1000.0d0, 5000.0d0, 5000.0d0, 1000.0d0, &    !81-85