Opened 17 years ago

Closed 17 years ago

#260 closed bug (Fixed)

Bug in tl_initial.F

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

Description

The switch LdefTLM used to create the tangent history NetCDF file in tl_initial.F was accidentally removed in ​src:ticket:255. Many thanks to Gregoire Broquet for reporting this bug.

Change History (3)

comment:1 by arango, 17 years ago

Resolution: → Fixed
Status: new → closed

comment:2 by arango, 17 years ago

Resolution: Fixed
Status: closed → reopened

comment:3 by arango, 17 years ago

Resolution: → Fixed
Status: reopened → closed

I also fixed problem with closing ncFWDid and ncHISid NetCDF files. I added the following logic to close_io.F: 

        IF ((ncFWDid(ng).ne.-1).and.(ncFWDid(ng).eq.ncHISid(ng))) THEN
          ncFWDid(ng)=-1
        END IF
Note: See TracTickets for help on using tickets.