Opened 12 years ago

Last modified 12 years ago

#601 closed bug

Corrected bug in obs_sen_is4dvar.h — at Initial Version

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

Description

Several indices were not initialized in obs_sen_is4dvar.h when activating IS4DVAR_SENSITIVITY. We need to add:

       DO ng=1,Ngrids
#if defined ADJUST_BOUNDARY || defined ADJUST_STFLUX || \
    defined ADJUST_WSTRESS
        Lfinp(ng)=1         ! forcing index for input
        Lfout(ng)=1         ! forcing index for output history files
#endif
#ifdef ADJUST_BOUNDARY
        Lbinp(ng)=1         ! boundary index for input
        Lbout(ng)=1         ! boundary index for output history files
#endif
        ...
      END DO

Many thanks to Andy Moore and the 4D-Var training class for bringing this to my attention.

Change History (0)

Note: See TracTickets for help on using tickets.