Possible bug in ROMS/Utility/convolve.F

[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.

[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]

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 :
https://www.myroms.org/projects/src/ticket/919

Anyway, thanks for the update!!