A small bug in obs_sen_is4dvar.h

[arango]

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