Changeset 150 for trunk/LMDZ.VENUS/libf

Timestamp:

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

Author:

slebonnois

Message:

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

File:

• trunk/LMDZ.VENUS/libf/phyvenus/physiq.F (modified) (2 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/physiq.F

@@ -446 +446 @@
      .       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)
 
@@ -498 +509 @@
 c Verifications:
 c
-         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,