--- trunk/libf/phylmd/readsulfate.f	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/readsulfate.f	2011/09/20 09:14:34	51
@@ -1,12 +1,13 @@
 !
 ! $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
+      use chem      
       IMPLICIT none
       
 c Content: 
@@ -34,11 +35,10 @@
 c      
 c Include-files:
 c --------------     
-      include "chem.h"      
 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,8 @@
       use dimens_m      
       use dimphy      
       use temps      
-      use YOMCST
+      use SUPHEC_M
+      use chem      
       IMPLICIT none
       
 c Content: 
@@ -305,11 +306,10 @@
 c      
 c Include-files:
 c --------------     
-      include "chem.h"      
 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