Opened 17 years ago
Closed 17 years ago
#3 closed defect (fixed)
flag missing in ad_wrt_his.F
| Reported by: | zhang | Owned by: | somebody |
|---|---|---|---|
| Priority: | major | Milestone: | |
| Component: | component1 | Version: | |
| Keywords: | Cc: |
Description
Flag 'ADJUST_WSTRESS' is missing between line 536 and 537 in ad_wrt_his.F. It should be:
# ifdef ADJUST_WSTRESS
ELSE
status=nf_fwrite2d(ng, iADM, ncADJid(ng), adjVid(idVsms,ng), &
& tADJindx(ng), gtype, & & LBi, UBi, LBj, UBj, scale, &
# ifdef MASKING
& GRID(ng) % vmask(LBi,LBj), &
# endif
& FORCES(ng) % ad_vstr(LBi,LBj,kout))
# endif
Note:
See TracTickets
for help on using tickets.
Yes, I already corrected this. I didn't have time to update the repositories.