w3iors: add Denises TRHO(2)=0 fix

MatthewMasarik-NOAA · Aug 9, 2024 · 709f45c · 709f45c
1 parent abc77b9
commit 709f45c
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/model/src/w3iorsmd.F90 b/model/src/w3iorsmd.F90
@@ -1303,6 +1303,10 @@ SUBROUTINE W3IORS ( INXOUT, NDSR, DUMFPI, IMOD, FLRSTRT )
         TICE(1) = -1
         TICE(2) =  0
         TRHO(1) = -1
+!!!MTM
+        TRHO(2) =  0
+        WRITE(*,*) 'MTM: Entered TRHO(2)=0 block'
+!!!MTM
         TIC1(1) = -1
         TIC1(2) =  0
         TIC5(1) = -1