Changeset 3320

Timestamp:

May 3, 2018, 3:32:34 PM (6 years ago)

Author:

Laurent Fairhead

Message:

phys_tstep needed to be initialised earlier in the physics

File:

• LMDZ6/branches/DYNAMICO-conv/libf/phylmd/physiq_mod.F90 (modified) (2 diffs)

LMDZ6/branches/DYNAMICO-conv/libf/phylmd/physiq_mod.F90

@@ -1128 +1128 @@
     pdtphys=pdtphys_
     CALL update_time(pdtphys)
+    phys_tstep=NINT(pdtphys)
 
     !======================================================================
@@ -1354 +1355 @@
        ! pour obtenir le meme resultat.
 !jyg for fh<
-       phys_tstep=NINT(pdtphys)
        WRITE(lunout,*) 'Pas de temps phys_tstep pdtphys ',phys_tstep,pdtphys
        IF (abs(phys_tstep-pdtphys)>1.e-10) THEN