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