Opened 9 years ago

Closed 9 years ago

#417 closed bug (Fixed)

A small bug in obs_sen_is4dvar.h

Reported by: arango Owned by: arango
Priority: major Milestone: Adjoint Based Algorithms
Component: Adjoint Version: 3.4
Keywords: Cc:

Description

There was a typo in obs_sen_is4dvar.h. A underscore was missing in line 348 for the object initialize_ocean:

       USE mod_ocean, ONLY : initialize_ocean

Also, the assignment for BLKname needed to be before the call to ad_initial and not after:

#if defined BULK_FLUXES && defined NL_BULK_FLUXES
!
!  Set file name containing the nonlinear model bulk fluxes to be read
!  and processed by other algorithms.
!
        BLKname(ng)=HISname(ng)
#endif
!
!  Initialize adjoint model and define sensitivity functional.
!
        Lstiffness=.FALSE.
        CALL ad_initial (ng)
        IF (exit_flag.ne.NoError) RETURN

Many thanks to Jerome Fiechter and Andy Moore for bringing this to my attention

Change History (1)

comment:1 Changed 9 years ago by arango

  • Resolution set to Fixed
  • Status changed from new to closed
Note: See TracTickets for help on using tickets.