Custom Query (964 matches)

Firstly, in ROMS/Utility/get_grid.F, lines 171-175 are

      IF (.not.find_string(var_name,n_var,'mask_psi',vindex)) THEN
        IF (Master) WRITE (stdout,10) 'mask_rho', TRIM(ncname)
        exit_flag=2
        RETURN
      END IF

The second line should be

       IF (Master) WRITE (stdout,10) 'mask_psi', TRIM(ncname)

Secondly, in ROMS/Utility/checkvars.F, lines 343-348 are

      IF (.not.have_var(idtime)) THEN
        IF (Master) WRITE (stdout,10) string, TRIM(tvarnam),            &
     &                                TRIM(ncname)
        exit_flag=2
        RETURN
      END IF

I think the second line should instead be

        IF (Master) WRITE (stdout,10) string, TRIM(Vname(1,idtime)),     &

In these files

  ROMS/External/ocean_benchmark1.in
  ROMS/External/ocean_benchmark2.in
  ROMS/External/ocean_benchmark3.in

MyAppCPP is set to BENCHMARK1, BENCHMARK2 and BENCHMARK2, respectively.

Shouldn't it be BENCHMARK for all of them?

Extraneous comma at ROMS/Nonlinear/sed_bedload.F line 304:

      real(r8) :: a_slopex, a_slopey, sed_angle,