probably a small bug for public variable : exit_flag

[FengZhou]

Hi, all

I have compiled the code just upgrade to v298 (ROMS3.2), it is ok for default UPWELLING case. But it meet problem when I turned to my own case.

The message is :

ROMS/Bin/cpp_clean Build/mod_netcdf.f90
cd Build; /opt/mpi/mvapich/1.1/gcc.pgf90/bin/mpif90 -c -O3 -tp k8-64 -Mfree mod_netcdf.f90
cd Build; /opt/mpi/mvapich/1.1/gcc.pgf90/bin/mpif90 -c -O3 -tp k8-64 -Mfree mod_sources.f90
PGF90-S-0038-Symbol, exit_flag, has not been explicitly declared (mod_sources.f90)
PGF90-S-0038-Symbol, noerror, has not been explicitly declared (mod_sources.f90)
0 inform, 0 warnings, 2 severes, 0 fatal for allocate_sources
make: *** [Build/mod_sources.o] Error 2

my configurations cpp file is like before under ROMS3.1 (v291)

so, i have to add an comment to this line:

! IF (exit_flag.ne.NoError) RETURN

then it goes ahead.

any suggestions?

[arango]

Yes, thank you. We just need to add USE mod_scalars around line 106 of mod_sources.F:

Code: Select all

      USE mod_param
# ifndef ANA_PSOURCE
      USE mod_parallel
      USE mod_iounits
      USE mod_ncparam
      USE mod_netcdf
      USE mod_scalars
# endif