add save attribute to this variable

ESCOMP · Oct 17, 2023 · 4a38196 · 4a38196
1 parent 74b5c4c
commit 4a38196
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/dshr/dshr_mod.F90 b/dshr/dshr_mod.F90
@@ -1346,7 +1346,7 @@ subroutine dshr_orbital_update(Time, logunit,  maintask, eccen, obliqr, lambm0,
     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 = "(dshr_orbital_update)"
     !-------------------------------------------