Changeset 3839 for palm/trunk/SOURCE/date_and_time_mod.f90

Timestamp:

Mar 28, 2019 9:12:25 PM (6 years ago)

Author:

moh.hefny

Message:

fixing negative day situation when 1st day of month is used with spinup

File:

• palm/trunk/SOURCE/date_and_time_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/date_and_time_mod.f90

@@ -418 +418 @@
           ENDIF
 
-
-
+          ! fix the date if the day is 1st and earlier day is needed due to spinup
+          IF ( day_of_month < 1 ) THEN
+ 
+             ! if the day is the first day in the year
+             IF ( month_of_year  ==  1 ) THEN
+                month_of_year = 12
+                day_of_month = 31
+ 
+             ! other cases
+             ELSE
+                month_of_year = month_of_year - 1
+                day_of_month = days(month_of_year)
+             ENDIF
+ 
+          ENDIF
 
       ELSE