From a7a1c9a6ecca167a480545a6e7950a855f7a5432 Mon Sep 17 00:00:00 2001
From: Claire Carouge <claire.carouge@anu.edu.au>
Date: Fri, 17 Jan 2025 17:15:16 +1100
Subject: [PATCH] Princeton forcing does not provide snowfall.

---
 src/offline/cable_input.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/offline/cable_input.F90 b/src/offline/cable_input.F90
index 0833e905a..4061537cd 100644
--- a/src/offline/cable_input.F90
+++ b/src/offline/cable_input.F90
@@ -400,7 +400,7 @@ SUBROUTINE open_met_file(dels,koffset,kend,spinup, TFRZ)
           PRINT*,'rainf'
           CALL handle_err( ok )
        ENDIF
-       IF(.NOT. globalMetfile%l_gpcc) THEN
+       IF(.NOT. globalMetfile%l_gpcc .AND. TRIM(cable_user%MetType) /= 'prin') THEN
          ok = NF90_OPEN(gswpfile%snowf,0,ncid_snow)
          IF (ok /= NF90_NOERR) THEN
             PRINT*,'snow'