Changeset 2300 for trunk/LMDZ.GENERIC/libf

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

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• callkeys_mod.F90 (modified) (1 diff)
• inifis_mod.F90 (modified) (1 diff)
• physiq_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)

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 ?"

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

@@ -733 +733 @@
          call stellarlong(zday,zls)
       else
-         call stellarlong(float(day_ini),zls)
+         call stellarlong(noseason_day,zls)
       end if