search

schism-dev / schism

Semi-implicit Cross-scale Hydroscience Integrated System Model (SCHISM)
http://ccrm.vims.edu/schismweb/
Apache License 2.0
87 stars 86 forks source link

Fortran 2018 deleted feature: Arithmetic IF statement #60

Open platipodium opened 2 years ago

platipodium commented 2 years ago

We should get rid of this outdated if construct and replace with newer

/home/g/g260077/devel/noaa/CoastalApp/SCHISM/schism/src/Hydro/lap.F90:1641:48:

 1641 |       IF (INCX.EQ.INCY) IF (INCX-1) 10 , 30 , 70
      |                                                1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)
/home/g/g260077/devel/noaa/CoastalApp/SCHISM/schism/src/Hydro/lap.F90:1696:48:

 1696 |       IF (INCX.EQ.INCY) IF (INCX-1) 10 , 30 , 70
      |                                                1
Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1)