Changeset 2300 for trunk/LMDZ.GENERIC/libf/phystd/inifis_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/inifis_mod.F90 (modified) (1 diff)

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

@@ -150 +150 @@
      call getin_p("season",season)
      write(*,*) " season = ",season
+     
+     write(*,*) "No seasonal cycle: initial day to lock the run during restart"
+     noseason_day=0.0 ! default value
+     call getin_p("noseason_day",noseason_day)
+     write(*,*) "noseason_day=", noseason_day
 
      write(*,*) "Tidally resonant rotation ?"