Changeset 2435 for LMDZ5/branches/testing/libf/phylmd/time_phylmdz_mod.F90

Timestamp:

Jan 28, 2016, 5:02:13 PM (9 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2396:2434 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/time_phylmdz_mod.F90 (modified) (1 diff)

LMDZ5/branches/testing/libf/phylmd/time_phylmdz_mod.F90

@@ -77 +77 @@
   END SUBROUTINE init_iteration
 
+  SUBROUTINE update_time(pdtphys_)
+  ! This subroutine updates the module saved variables.
+  USE ioipsl, ONLY : ymds2ju
+  USE phys_cal_mod, ONLY: phys_cal_update
+  USE print_control_mod, ONLY: lunout
+  IMPLICIT NONE
+    REAL,INTENT(IN) :: pdtphys_
+    REAL            :: julian_date
+    
+    ! Check if the physics timestep has changed
+    IF ( ABS( (pdtphys-pdtphys_) / ((pdtphys+pdtphys_)/2))> 10.*EPSILON(pdtphys_)) THEN
+       WRITE(lunout,*) "WARNING ! Physics time step changes from a call to the next",pdtphys_,pdtphys
+       WRITE(lunout,*) "Not sure the physics parametrizations can handle this..."
+    ENDIF
+    pdtphys=pdtphys_
+    
+    ! Update elapsed time since begining of run:
+    current_time=current_time+pdtphys
+
+    ! Compute corresponding Julian date and update calendar
+    CALL ymds2ju(annee_ref,1,day_ini,start_time+current_time,julian_date)
+    CALL phys_cal_update(julian_date)
+    
+  END SUBROUTINE update_time
+
 END MODULE time_phylmdz_mod