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

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