Possible bug in ROMS/Utility/convolve.F

Bug reports, work arounds and fixes

Moderators: arango, robertson

Post Reply
Message
Author
stef
Posts: 175
Joined: Tue Mar 13, 2007 6:38 pm
Location: Independent researcher
Contact:

Possible bug in ROMS/Utility/convolve.F

#1 Unread post by stef »

For tutorial exercise 3 I tried to compile a RBL4DVAR application without RPCG.

It fails with

Code: Select all

cd xxx; /usr/bin/mpif90 -c -frepack-arrays -fallow-argument-mismatch        -O3 -ffast-math -fallow-argument-mismatch convolve.f90
convolve.f90:299:37:

  299 |           CALL wrt_ini (ng, Rnew(ng))
      |                                     1
Error: Missing actual argument for argument 'tindex' at (1)
In convolve.F there is

Code: Select all

# elif (defined RBL4DVAR || defined RBL4DVAR_ANA_SENSITIVITY) && \
       !defined RPCG
      ELSE IF (model.eq.iNLM) THEN
        DO ng=1,Ngrids
          CALL wrt_ini (ng, Rnew(ng))
          IF (FoundError(exit_flag, NoError, __LINE__, MyFile)) RETURN
so I tried defining RPCG and it worked.

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

Re: Possible bug in ROMS/Utility/convolve.F

#2 Unread post by arango »

It seems that you are using an older version of ROMS. All the I/O routines were modified when the PIO library was added. Such a routine has additional arguments. I think that you need to update.

stef
Posts: 175
Joined: Tue Mar 13, 2007 6:38 pm
Location: Independent researcher
Contact:

Re: Possible bug in ROMS/Utility/convolve.F

#3 Unread post by stef »

Indeed, thanks! Sorry, I thought I had the current release before reporting.

Edit: I take it back, apparently it was fixed after I reported it :D :
https://www.myroms.org/projects/src/ticket/919

Anyway, thanks for the update!!

Post Reply