protect write_restartfh w/ CESM ifdef

ESCOMP · Dec 18, 2024 · e3a4803 · e3a4803
1 parent 191214b
commit e3a4803
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/mediator/med_phases_restart_mod.F90 b/mediator/med_phases_restart_mod.F90
@@ -189,7 +189,9 @@ subroutine med_phases_restart_write(gcomp, rc)
     real(R8)                   :: tbnds(2)       ! CF1.0 time bounds
     logical                    :: isPresent
     logical                    :: first_time = .true.
+#ifndef CESMCOUPLED
     logical                    :: write_restartfh
+#endif
     character(len=*), parameter :: subname='(med_phases_restart_write)'
     !---------------------------------------