Small fortran bug in nl_ocean.h

Bug reports, work arounds and fixes

Moderators: arango, robertson

Post Reply
Message
Author
spitz
Posts: 14
Joined: Fri Dec 12, 2003 9:19 pm
Location: OSU/COAS

Small fortran bug in nl_ocean.h

#1 Unread post by spitz »

I just downloaded the latest version of ROMS. While most of the compilers do not have a problem, the IBM xlf90 and xlf90_r has a problem with the syntax and the compilation stops with an error

!-----------------------------------------------------------------------
! If blowing-up, save latest model state into RESTART NetCDF file.
!-----------------------------------------------------------------------
!
! If cycling restart records, write solution into the next record.
!
IF (exit_flag.eq.1) THEN
DO ng=1,Ngrids
IF (LwrtRST(ng)) THEN
IF (Master) WRITE (stdout,10), TRIM(blowup_string)

The comma after (stdout,10) should not be there or something is missing before the comma.

User avatar
arango
Site Admin
Posts: 1347
Joined: Wed Feb 26, 2003 4:41 pm
Location: DMCS, Rutgers University
Contact:

Re: Small fortran bug in nl_ocean.h

#2 Unread post by arango »

Yes, thank you!

Post Reply