Opened 15 years ago
Last modified 15 years ago
#353 closed bug
Failure from wrt_stations when LdefSTA is false. — at Initial Version
Reported by: | kate | Owned by: | arango |
---|---|---|---|
Priority: | major | Milestone: | Release ROMS/TOMS 3.3 |
Component: | Nonlinear | Version: | 3.3 |
Keywords: | Cc: |
Description
The same thing happens with floats. This patch to inp_par works:
diff --git a/ROMS/Utility/inp_par.F b/ROMS/Utility/inp_par.F index dc13796..9a6fa88 100644 --- a/ROMS/Utility/inp_par.F +++ b/ROMS/Utility/inp_par.F @@ -11100,6 +11100,10 @@ ! Report input parameters. !----------------------------------------------------------------------- ! + DO ng=1,Ngrids + IF (.not. LdefFLT(ng) .and. Lfloats(ng)) & + & Lfloats(ng) = .FALSE. + END DO IF (Lwrite) THEN DO ng=1,Ngrids IF (ncount(ng).ne.Nfloats(ng)) THEN @@ -11534,6 +11538,10 @@ ! Report input parameters. !----------------------------------------------------------------------- ! + DO ng=1,Ngrids + IF (.not. LdefSTA(ng) .and. Lstations(ng)) & + & Lstations(ng) = .FALSE. + END DO IF (Lwrite) THEN DO ng=1,Ngrids IF (Lstations(ng)) THEN
Note:
See TracTickets
for help on using tickets.