Merge branch 'user/mjh/dye_tracers_restart_fix' into dev/master

NOAA-GFDL · Jul 1, 2016 · 299bdab · 299bdab
2 parents 14200da + 5baded0
commit 299bdab
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/tracer/dye_example.F90 b/src/tracer/dye_example.F90
@@ -119,6 +119,7 @@ module regional_dyes
   type(MOM_restart_CS), pointer :: restart_CSp => NULL()
 
   type(vardesc), allocatable :: tr_desc(:)
+  logical :: tracers_may_reinit = .false. ! hard-coding here (mjh)
 end type dye_tracer_CS
 
 contains
@@ -248,8 +249,8 @@ function register_dye_tracer(HI, GV, param_file, CS, tr_Reg, restart_CS)
     call query_vardesc(CS%tr_desc(m), name=var_name, &
                        caller="register_dye_tracer")
 !    ! Register the tracer for the restart file.
-!    call register_restart_field(tr_ptr, CS%tr_desc(m), &
-!                                .not.CS%tracers_may_reinit, restart_CS)
+    call register_restart_field(tr_ptr, CS%tr_desc(m), &
+                                .not.CS%tracers_may_reinit, restart_CS)
     ! Register the tracer for horizontal advection & diffusion.
     call register_tracer(tr_ptr, CS%tr_desc(m), param_file, HI, GV, tr_Reg, &
                          tr_desc_ptr=CS%tr_desc(m))