Changeset 2300 for trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90

Timestamp:

Apr 27, 2020, 4:52:09 PM (5 years ago)

Author:

dbardet

Message:

27/04/2020 (r2300) == DB

Add a parameter to lock a no seasonal cycle simulation during restart.
One sets the initial day using 'season=.true.' and set 'noseason_day'. This commit fixed the ticket #42 of planeto tack

File:

• trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90

@@ -140 +140 @@
       real,save :: epflux_max
 !$OMP THREADPRIVATE(epflux_max)
-
+      real,save :: noseason_day
+!$OMP THREADPRIVATE(noseason_day)
+      
       logical,save :: iscallphys=.false.!existence of callphys.def
 !$OMP THREADPRIVATE(iscallphys)