--- trunk/phylmd/physiq.f	2014/12/18 17:30:24	118
+++ trunk/phylmd/physiq.f	2015/02/12 16:23:33	128
@@ -66,7 +66,7 @@
     logical, intent(in):: lafin ! dernier passage
 
     REAL, intent(in):: rdayvrai
-    ! (elapsed time since January 1st 0h of the starting year, in days)
+    ! elapsed time since January 1st 0h of the starting year, in days
 
     REAL, intent(in):: time ! heure de la journ\'ee en fraction de jour
     REAL, intent(in):: dtphys ! pas d'integration pour la physique (seconde)
@@ -223,8 +223,8 @@
     ! Variables propres a la physique
 
     INTEGER, save:: radpas
-    ! (Radiative transfer computations are made every "radpas" call to
-    ! "physiq".)
+    ! Radiative transfer computations are made every "radpas" call to
+    ! "physiq".
 
     REAL radsol(klon)
     SAVE radsol ! bilan radiatif au sol calcule par code radiatif
@@ -649,7 +649,7 @@
 
        CALL printflag(radpas, ok_journe, ok_instan, ok_region)
 
-       IF (dtphys * REAL(radpas) > 21600. .AND. cycle_diurne) THEN 
+       IF (dtphys * radpas > 21600. .AND. cycle_diurne) THEN 
           print *, "Au minimum 4 appels par jour si cycle diurne"
           call abort_gcm('physiq', &
                "Nombre d'appels au rayonnement insuffisant", 1)
@@ -775,7 +775,7 @@
 
     CALL orbite(REAL(julien), longi, dist)
     IF (cycle_diurne) THEN
-       CALL zenang(longi, time, dtphys * REAL(radpas), mu0, fract)
+       CALL zenang(longi, time, dtphys * radpas, mu0, fract)
     ELSE
        mu0 = -999.999
     ENDIF