Custom Query (986 matches)

• Several versions of gfortran failed when the Fortran intrinsic function PACK had a pointer as the first argument. The PACK function is used when reading NetCDF files, and the CHECKSUM option is activated. So, for example, in nf_fread2d.F, we need to have instead:

        IF (Lchecksum) THEN
  # ifdef DISTRIBUTE
          Npts=(Imax-Imin+1)*(Jmax-Jmin+1)
          IF (.not.allocated(Cwrk)) allocate ( Cwrk(Npts) )
          Cwrk = PACK(Adat(Imin:Imax, Jmin:Jmax), .TRUE.)
          CALL get_hash (Cwrk, Npts, checksum, .TRUE.)
  # else
          Npts=(Ie-Is+1)*(Je-Js+1)
          IF (.not.allocated(Cwrk)) allocate ( Cwrk(Npts) )
          Cwrk = PACK(Adat(Is:Ie, Js:Je), .TRUE.)
          CALL get_hash (Cwrk, Npts, checksum)
  # endif
          IF (allocated(Cwrk)) deallocate (Cwrk)
        END IF
  
  

• Updated the gfortarn make configuration script to comment the -fsanitize compiling flags:

  #          FFLAGS += -fsanitize=address -fsanitize=undefined
  

  The sanitization in a newer version for gfortran requires a couple of libraries during compilation and execution.

• Added compiler option -fallow-argument-mismatch to CMmake configuration file Compilers/compiler_flags_GNU_Fortran.cmake.

• Added verbose (-v) option to CMake build scripts cbuild_roms.csh and cbuild_roms.sh.

• Several scripts were enhanced including: ioda_read.m, plot_ioda.m, hplot.m, plot_diff.m, plot_field.m, and plot_section.m.

• utility/interp_station.m: It extracts station data from ROMS NetCDF files at specific locations. It can be used to check ROMS-JEDI H(X) operators that interpolates model state variables at the observation locations. Also, it can be used to compare and verify horizontal and vertical interpolations from the IODA/UFO JEDI operators.

A new module get_env.F was added to retrieve system environmental variables, which can be decoded as logical, integer, or string values. For example, we can have in the environment:

setenv ROMS_DEBUG 1
setenv ROMS_TRACE 4
setenv ROMS_HOME  /Users/arango/ocean/repository/git

Then, we can retrieve such values into a logical, integer, and strings variables, respectively, inside ROMS code by using:

     Logical :: Ldebug
     integer :: Itrace
     character (len=256) :: roms_home

     status = get_env('ROMS_DEBUG', Ldebug)
     status = get_env('ROMS_TRACE', Itrace)
     status = get_env('ROMS_HOME',  roms_home)

Notice that get_env is a PUBLIC overloading function that decodes the string value of the environmental variables to another type of variable like integer and logical.

Currently, this capability is used in the ROMS-JEDi interface, but I can see its usage in the ROMS source code in the future.

The get_env.F module uses Fortran 2003 GET_ENVIRONMENT_VARIABLE intrinsic function.