Custom Query (986 matches)

File ROMS/Utility/wrt_impulse.F is of the form

#include "cppdefs.h"
#if defined ADJOINT && defined IMPULSE
      SUBROUTINE wrt_impulse (ng, tile, model, INPncname)
...
      RETURN
      END SUBROUTINE wrt_impulse
#endif

Therefore it is empty if ADJOINT and IMPULSE are not both defined. This causes an error on some systems. One solution is to insert an empty subroutine in this case.

#include "cppdefs.h"
#if defined ADJOINT && defined IMPULSE
      SUBROUTINE wrt_impulse (ng, tile, model, INPncname)
...
      RETURN
      END SUBROUTINE wrt_impulse
#else
      SUBROUTINE wrt_impulse
      END SUBROUTINE wrt_impulse
#endif

In ROMS/Utility/get_bounds.F line 169

integer, intent(in)

Lfullgrid

should be

logical, intent(in)

Lfullgrid

set_tides fails to compile because mod_boundary has tests on NORTH_FSOBC for the definition of zeta_north, but set_tides doesn't have this test. I have a NORTHERN_WALL, so get:

 PGF90-S-0142-zeta_north is not a member of this RECORD (set_tides.f90: 60)
 PGF90-S-0142-ubar_north is not a member of this RECORD (set_tides.f90: 60)
 PGF90-S-0142-vbar_north is not a member of this RECORD (set_tides.f90: 60)