Passive Tracer are not read in after restart

[crode1968]

Dear ROMS-Team, Dear Hernan Arango,

IMHO the subroutine ./ROMS/Utility/checkvars.F needs a patch to ensure the reading of passive tracers after a restart.

>> gdiff -uN checkvars.F checkvars.F.NEW 

--- checkvars.F 2008-01-28 15:52:49.307101000 +0100
+++ checkvars.F.NEW     2008-01-28 15:52:49.296606000 +0100
@@ -117,11 +117,19 @@
 # endif
 #endif
 #ifdef SOLVE3D
-# if defined T_PASSIVE && !defined ANA_PASSIVE
+# if defined T_PASSIVE
+#  if defined ANA_PASSIVE
+      IF (nrrec(ng).ne.0) THEN
+        DO itrc=1,NPT
+          get_var(idTvar(inert(itrc)))=.TRUE.
+        END DO
+      END IF
+#  else
       DO itrc=1,NPT
         get_var(idTvar(inert(itrc)))=.TRUE.
       END DO
-# endif
+#  endif ANA_PASSIVE
+# endif T_PASSIVE
 # ifdef SEDIMENT
 #  ifdef SED_MORPH
       IF (nrrec(ng).ne.0) THEN

Thanks and have a nice day,

Christian

[arango]

Yes, good catch.