--- trunk/phylmd/clmain.f90	2013/11/15 18:45:49	76
+++ trunk/phylmd/clmain.f	2014/05/13 17:23:16	98
@@ -29,7 +29,6 @@
     ! "zu1" et "zv1". Nous avons moyenné les valeurs de ces trois
     ! champs sur les quatre sous-surfaces du modèle.
 
-    use calendar, ONLY: ymds2ju
     use clqh_m, only: clqh
     use clvent_m, only: clvent
     use coefkz_m, only: coefkz
@@ -53,6 +52,7 @@
     use ustarhb_m, only: ustarhb
     use vdif_kcay_m, only: vdif_kcay
     use yamada4_m, only: yamada4
+    use ymds2ju_m, ONLY: ymds2ju
 
     ! Arguments:
 
@@ -493,7 +493,7 @@
                   coefm(:knon, 1), ycoefm0, ycoefh0)
              coefm(:knon, :) = max(coefm(:knon, :), ycoefm0(:knon, :))
              coefh(:knon, :) = max(coefh(:knon, :), ycoefh0(:knon, :))
-           END IF
+          END IF
 
           IF (iflag_pbl >= 3) THEN
              ! MELLOR ET YAMADA adapté à Mars, Richard Fournier et