From b6a84836b220f88764903883950f705b80dac8b3 Mon Sep 17 00:00:00 2001 From: "jessica.meixner" Date: Tue, 14 Jan 2020 15:05:28 -0500 Subject: [PATCH 1/2] changing file type (removing execute option) --- model/ftn/w3sic5md.ftn | 0 model/ftn/w3src4md.ftn | 0 model/ftn/w3triamd.ftn | 0 model/ftn/w3uostmd.ftn | 0 model/inp/ww3_trnc.inp | 0 5 files changed, 0 insertions(+), 0 deletions(-) mode change 100755 => 100644 model/ftn/w3sic5md.ftn mode change 100755 => 100644 model/ftn/w3src4md.ftn mode change 100755 => 100644 model/ftn/w3triamd.ftn mode change 100755 => 100644 model/ftn/w3uostmd.ftn mode change 100755 => 100644 model/inp/ww3_trnc.inp diff --git a/model/ftn/w3sic5md.ftn b/model/ftn/w3sic5md.ftn old mode 100755 new mode 100644 diff --git a/model/ftn/w3src4md.ftn b/model/ftn/w3src4md.ftn old mode 100755 new mode 100644 diff --git a/model/ftn/w3triamd.ftn b/model/ftn/w3triamd.ftn old mode 100755 new mode 100644 diff --git a/model/ftn/w3uostmd.ftn b/model/ftn/w3uostmd.ftn old mode 100755 new mode 100644 diff --git a/model/inp/ww3_trnc.inp b/model/inp/ww3_trnc.inp old mode 100755 new mode 100644 From dd3dee13d8455ece94ef7a855384f0b1c75f8b32 Mon Sep 17 00:00:00 2001 From: "jessica.meixner" Date: Tue, 14 Jan 2020 15:11:39 -0500 Subject: [PATCH 2/2] adding in-line comments to document the usage of the WRST switch #110 --- model/ftn/w3iorsmd.ftn | 7 +++++++ model/ftn/wmesmfmd.ftn | 5 +++++ 2 files changed, 12 insertions(+) diff --git a/model/ftn/w3iorsmd.ftn b/model/ftn/w3iorsmd.ftn index f8fe6ae3c..8875a1360 100644 --- a/model/ftn/w3iorsmd.ftn +++ b/model/ftn/w3iorsmd.ftn @@ -748,6 +748,13 @@ (ICE(ISEA),ISEA=1+(IPART-1)*NSIZE, & MIN(NSEA,IPART*NSIZE)) END DO + +!/WRST ! The WRST switch saves the values of wind in the +!/WRST ! restart file and then uses the wind for the first +!/WRST ! time step here. This is needed when coupling with +!/WRST ! an atm model that does not have 10m wind speeds at +!/WRST ! initialization. If there is no restart, wind is zero + !/WRST DO IX=1, NX !/WRST DO IPART=1,NPRTY2 !/WRST NREC = NREC + 1 diff --git a/model/ftn/wmesmfmd.ftn b/model/ftn/wmesmfmd.ftn index a072a3cd1..812ed4750 100644 --- a/model/ftn/wmesmfmd.ftn +++ b/model/ftn/wmesmfmd.ftn @@ -2238,6 +2238,11 @@ tw0 = twn wx0 = wxn wy0 = wyn +!/WRST ! The WRST switch saves the values of wind in the +!/WRST ! restart file and then uses the wind for the first +!/WRST ! time step here. This is needed when coupling with +!/WRST ! an atm model that does not have 10m wind speeds at +!/WRST ! initialization. If there is no restart, wind is zero !/WRST wxn = WXNwrst !replace with values from restart !/WRST wyn = WYNwrst !/WRST wx0 = WXNwrst