first_time needs to be saved

ESCOMP · Sep 22, 2024 · 81ac924 · 81ac924
1 parent 1b8920c
commit 81ac924
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/mediator/med_phases_ocnalb_mod.F90 b/mediator/med_phases_ocnalb_mod.F90
@@ -636,7 +636,7 @@ subroutine med_phases_ocnalb_orbital_update(clock, logunit,  maintask, eccen, ob
     integer           :: orb_year ! orbital year for current orbital computation
     character(len=CL) :: msgstr   ! temporary
     logical           :: lprint
-    logical           :: first_time = .true.
+    logical, save     :: first_time = .true.
     character(len=*) , parameter :: subname = "(med_phases_ocnalb_orbital_update)"
     !-------------------------------------------