bug in wrt_rst.F ??

[schen]

A bug ??

in wrt_rst.F line 106

Original:

Code: Select all

#ifdef PERFECT_RESTART
!
!  Write out time-stepping indices.
!
# ifdef SOLVE3D
      ntmp(1)=1+MOD((iic(ng)-1)-ntstart(ng),2)
      CALL netcdf_put_ivar (ng, iNLM, RSTname(ng), 'nstp',              &
     &                      ntmp, (/tRSTindx(ng)/), (/1/),              &
     &                      ncid = ncRSTid(ng))
      IF (exit_flag.ne.NoError) RETURN

      CALL netcdf_put_ivar (ng, iNLM, RSTname(ng), 'nrhs',              &
     &                      ntmp, (/tRSTindx(ng)/), (/1/),              &
     &                      ncid = ncRSTid(ng))
      IF (exit_flag.ne.NoError) RETURN

      ntmp(1)=3-ntmp(1)
      CALL netcdf_put_ivar (ng, iNLM, RSTname(ng), 'nnew',              &
     &                      ntmp, (/tRSTindx(ng)/), (/1/),              
     &                      ncid = ncRSTid(ng))
      IF (exit_flag.ne.NoError) RETURN
# endif

The line after 'nnew' appears to miss a '&'

[kate]

Yes, you are right. You can use the ROMS trac system for such bug reports: https://www.myroms.org/projects/src/wiki

[arango]

Yes, I will correct the repository latter today. Thank you.