id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc
353	Failure from wrt_stations.F when LdefSTA is false.	kate	arango	"Turn off the processing of stations and floats if not running long enough to create such NetCDF files. That is, '''LdefSTA(ng)''' is false because '''nSTA(ng) < ntimes''' or '''nSTA(ng) = 0''' when '''nrrec = 0'''. Therefore, we also need '''Lstations(ng)''' to be false.

The following patch to '''inp_par.F''' fix the [https://www.myroms.org/forum/viewtopic.php?f=17&t=1499 problem]:

{{{
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

}}}
"	bug	closed	major	Release ROMS/TOMS 3.3	Nonlinear	3.3	Fixed