--- trunk/libf/phylmd/readsulfate.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/readsulfate.f	2011/01/06 17:52:19	38
@@ -1,12 +1,12 @@
 !
 ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/readsulfate.F,v 1.2 2005/05/19 08:27:15 fairhead Exp $
 !
-      SUBROUTINE readsulfate (r_day, first, sulfate)
+      SUBROUTINE readsulfate(r_day, first, sulfate)
       
       use dimens_m      
       use dimphy      
       use temps      
-      use YOMCST
+      use SUPHEC_M
       IMPLICIT none
       
 c Content: 
@@ -38,7 +38,7 @@
 c 
 c Input:
 c ------
-      REAL*8  r_day                   ! Day of integration
+      REAL*8, intent(in):: r_day                   ! Day of integration
       LOGICAL, intent(in):: first                 ! First timestep 
                                     ! (and therefore initialization necessary)
 c      
@@ -281,7 +281,7 @@
       use dimens_m      
       use dimphy      
       use temps      
-      use YOMCST
+      use SUPHEC_M
       IMPLICIT none
       
 c Content: 
@@ -309,7 +309,7 @@
 c 
 c Input:
 c ------
-      REAL*8  r_day                   ! Day of integration
+      REAL*8, intent(in)::  r_day                   ! Day of integration
       LOGICAL, intent(in):: first                 ! First timestep 
                                     ! (and therefore initialization necessary)
 c