Possible bug in /ROMS/Utility/time_corr.F

[stef]

Following the 4dvar tutorial there was a runtime error:

Code: Select all

  AD_WRT_HIS_NF90  - wrote adjoint     fields (Index=1,1) in record = 5
 Found Error: **   Line: 525      Source: ROMS/Utility/time_corr.F, time_corr_nf90

 TIME_CORR_NF90 - error while writing variable: ubar  at time record =   5
                  into NetCDF file: wc13_tlf.nc

There is code in def_impulse.F (line 414) with pattern

Code: Select all

 ifndef SOLVE3D
 !
 !  Define 2D U-momentum component impulse forcing.
!
 else
 ....

so the 2d variables aren't defined for 3d apps, but it seems time_corr.F wants to write to them anyways.