Changeset 149 for trunk/LMDZ.TITAN/libf

Timestamp:

Jun 8, 2011, 3:57:25 PM (14 years ago)

Author:

slebonnois

Message:

SL: bug de position modif dtime dans physiq.F pour Titan et Venus

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 pdtphys est calcule a partir des nouvelles conditions:
+c Reinitialisation du pas de temps physique quand changement
+         IF (ABS(dtime-pdtphys).GT.0.001) THEN
+            WRITE(lunout,*) 'Pas physique a change',dtime,
+     .                        pdtphys
+c           abort_message='Pas physique n est pas correct '
+c           call abort_gcm(modname,abort_message,1)
+            dtime=pdtphys
+         ENDIF
+
          radpas  = NINT( RDAY/pdtphys/nbapp_rad)
          chimpas =   radpas*nbapp_rad/nbapp_chim
@@ -563 +574 @@
         stop
       endif
-
-         IF (ABS(dtime-pdtphys).GT.0.001) THEN
-            WRITE(lunout,*) 'Pas physique n est pas correct',dtime,
-     .                        pdtphys
-c           abort_message='Pas physique n est pas correct '
-c           call abort_gcm(modname,abort_message,1)
-            dtime=pdtphys
-         ENDIF
          IF (nlon .NE. klon) THEN
             WRITE(lunout,*)'nlon et klon ne sont pas coherents', nlon,