Index: /LMDZ5/trunk/libf/phylmd/physiq_mod.F90
===================================================================
--- /LMDZ5/trunk/libf/phylmd/physiq_mod.F90	(revision 2730)
+++ /LMDZ5/trunk/libf/phylmd/physiq_mod.F90	(revision 2731)
@@ -1303,7 +1303,15 @@
        ! Il se peut qu'il faille prendre une valeur differente de nbapp_rad
        ! pour obtenir le meme resultat.
-       dtime=pdtphys
-       IF (MOD(INT(86400./dtime),nbapp_rad).EQ.0) THEN
-          radpas = NINT( 86400./dtime/nbapp_rad)
+!jyg for fh<
+!!       dtime=pdtphys
+       dtime=NINT(pdtphys)
+       WRITE(lunout,*) 'Pas de temps dtime pdtphys ',dtime,pdtphys
+       IF (abs(dtime-pdtphys)>1.e-10) THEN
+          abort_message='pas de temps doit etre entier en seconde pour orchidee et XIOS'
+          CALL abort_physic(modname,abort_message,1)
+       ENDIF
+!>jyg
+       IF (MOD(NINT(86400./dtime),nbapp_rad).EQ.0) THEN
+          radpas = NINT( 86400./dtime)/nbapp_rad
        ELSE 
           WRITE(lunout,*) 'le nombre de pas de temps physique doit etre un ', &
@@ -1318,6 +1326,6 @@
        IF (nbapp_wk .EQ. 0) nbapp_wk=86400./dtime
        print *,'physiq, nbapp_cv, nbapp_wk ',nbapp_cv,nbapp_wk
-       IF (MOD(INT(86400./dtime),nbapp_cv).EQ.0) THEN
-          cvpas = NINT( 86400./dtime/nbapp_cv)
+       IF (MOD(NINT(86400./dtime),nbapp_cv).EQ.0) THEN
+          cvpas = NINT( 86400./dtime)/nbapp_cv
        print *,'physiq, cvpas ',cvpas
        ELSE 
@@ -1330,6 +1338,6 @@
           call abort_physic(modname,abort_message,1)
        ENDIF
-       IF (MOD(INT(86400./dtime),nbapp_wk).EQ.0) THEN
-          wkpas = NINT( 86400./dtime/nbapp_wk)
+       IF (MOD(NINT(86400./dtime),nbapp_wk).EQ.0) THEN
+          wkpas = NINT( 86400./dtime)/nbapp_wk
        print *,'physiq, wkpas ',wkpas
        ELSE