Changeset 152 for trunk/LMDZ.TITAN/libf

Timestamp:

Jun 8, 2011, 4:49:35 PM (13 years ago)

Author:

slebonnois

Message:

SL: correction bug lie a itau_phy pour phytitan et phyvenus

File:

• trunk/LMDZ.TITAN/libf/phytitan/physiq.F (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/phytitan/physiq.F

@@ -474 +474 @@
      .       t_ancien, ancien_ok)
 
-c dtime est lu dans startphy, alors que 
+c dtime est lu dans startphy 
 c pdtphys est calcule a partir des nouvelles conditions:
 c Reinitialisation du pas de temps physique quand changement
@@ -482 +482 @@
 c           abort_message='Pas physique n est pas correct '
 c           call abort_gcm(modname,abort_message,1)
+c----------------
+c pour initialiser convenablement le time_counter, il faut tenir compte
+c du changement de dtime en changeant itau_phy (point de depart)
+            itau_phy = NINT(itau_phy*dtime/pdtphys)
+c----------------
             dtime=pdtphys
          ENDIF