Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Add code comments about WRST switch #146

Merged
merged 4 commits into from
Mar 1, 2021
Merged
Show file tree
Hide file tree
Changes from 3 commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
7 changes: 7 additions & 0 deletions model/ftn/w3iorsmd.ftn
Original file line number Diff line number Diff line change
Expand Up @@ -763,6 +763,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
Expand Down
Empty file modified model/ftn/w3sic5md.ftn
100755 → 100644
Empty file.
Empty file modified model/ftn/w3src4md.ftn
100755 → 100644
Empty file.
Empty file modified model/ftn/w3triamd.ftn
100755 → 100644
Empty file.
Empty file modified model/ftn/w3uostmd.ftn
100755 → 100644
Empty file.
5 changes: 5 additions & 0 deletions model/ftn/wmesmfmd.ftn
Original file line number Diff line number Diff line change
Expand Up @@ -2284,6 +2284,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
Expand Down
Empty file modified model/inp/ww3_trnc.inp
100755 → 100644
Empty file.