Add missing WW3 patches

Author: blimlim

WW3/patches/w3iorsmd.F90.patch

@@ -0,0 +1,22 @@
+diff --git a/w3iorsmd.F90 b/w3iorsmd.F90.new
+index ffb34d47..0e32748b 100644
+--- a/w3iorsmd.F90
++++ b/w3iorsmd.F90.new
+@@ -893,7 +893,7 @@ CONTAINS
+           WRITEBUFF(:) = 0.
+           WRITE (NDSR,POS=RPOS,ERR=803,IOSTAT=IERR) WRITEBUFF
+           WRITE (NDSR,POS=RPOS,ERR=803,IOSTAT=IERR)           &
+-               TLEV, TICE, TRHO
++               TLEV, TICE, TRHO, TIC1, TIC5
+           DO IPART=1,NPART
+             NREC  = NREC + 1
+             RPOS  = 1_8 + LRECL*(NREC-1_8)
+@@ -1078,7 +1078,7 @@ CONTAINS
+       IF (TYPE.EQ.'FULL') THEN
+         RPOS = 1_8 + LRECL*(NREC-1_8)
+         READ (NDSR,POS=RPOS,ERR=802,IOSTAT=IERR)                &
+-             TLEV, TICE, TRHO
++             TLEV, TICE, TRHO, TIC1, TIC5
+         DO IPART=1,NPART
+           NREC  = NREC + 1
+           RPOS = 1_8 + LRECL*(NREC-1_8)

WW3/patches/w3srcemd.F90.patch

@@ -0,0 +1,22 @@
+diff --git a/model/src/w3srcemd.F90 b/model/src/w3srcemd.F90
+index 9bd97c6f..c51a8609 100644
+--- a/model/src/w3srcemd.F90
++++ b/model/src/w3srcemd.F90
+@@ -2088,7 +2088,7 @@ CONTAINS
+ #ifdef W3_IC3
+       CALL W3SIC3 ( SPEC,DEPTH, CG1,  WN1, IX, IY, VSIC, VDIC )
+ #endif
+-#ifndef W3_IC4_NUMERICS
++#if defined(W3_IC4) && !defined(W3_IC4_NUMERICS)
+       CALL W3SIC4 ( SPEC,DEPTH, CG1,       IX, IY, VSIC, VDIC )
+ #endif
+ #ifdef W3_IC5
+@@ -2119,7 +2119,7 @@ CONTAINS
+ #ifdef W3_IC3
+         ATT=EXP(ICE*VDIC(IS)*DTG)
+ #endif
+-#ifndef W3_IC4_NUMERICS
++#if defined(W3_IC4) && !defined(W3_IC4_NUMERICS)
+        ATT=EXP(ICE*VDIC(IS)*DTG)
+ #endif
+ #ifdef W3_IC5