/[lmdze]/trunk/libf/phylmd/readsulfate.f
ViewVC logotype

Diff of /trunk/libf/phylmd/readsulfate.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 51 by guez, Tue Sep 20 09:14:34 2011 UTC
# Line 1  Line 1 
1  !  !
2  ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/readsulfate.F,v 1.2 2005/05/19 08:27:15 fairhead Exp $  ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/readsulfate.F,v 1.2 2005/05/19 08:27:15 fairhead Exp $
3  !  !
4        SUBROUTINE readsulfate (r_day, first, sulfate)        SUBROUTINE readsulfate(r_day, first, sulfate)
5                
6        use dimens_m              use dimens_m      
7        use dimphy              use dimphy      
8        use temps              use temps      
9        use YOMCST        use SUPHEC_M
10          use chem      
11        IMPLICIT none        IMPLICIT none
12                
13  c Content:  c Content:
# Line 34  c 21/08/01: Introduce flag to read in ju Line 35  c 21/08/01: Introduce flag to read in ju
35  c        c      
36  c Include-files:  c Include-files:
37  c --------------      c --------------    
       include "chem.h"        
38  c  c
39  c Input:  c Input:
40  c ------  c ------
41        REAL*8  r_day                   ! Day of integration        REAL*8, intent(in):: r_day                   ! Day of integration
42        LOGICAL, intent(in):: first                 ! First timestep        LOGICAL, intent(in):: first                 ! First timestep
43                                      ! (and therefore initialization necessary)                                      ! (and therefore initialization necessary)
44  c        c      
# Line 281  c--------------------------------------- Line 281  c---------------------------------------
281        use dimens_m              use dimens_m      
282        use dimphy              use dimphy      
283        use temps              use temps      
284        use YOMCST        use SUPHEC_M
285          use chem      
286        IMPLICIT none        IMPLICIT none
287                
288  c Content:  c Content:
# Line 305  c see above Line 306  c see above
306  c        c      
307  c Include-files:  c Include-files:
308  c --------------      c --------------    
       include "chem.h"        
309  c  c
310  c Input:  c Input:
311  c ------  c ------
312        REAL*8  r_day                   ! Day of integration        REAL*8, intent(in)::  r_day                   ! Day of integration
313        LOGICAL, intent(in):: first                 ! First timestep        LOGICAL, intent(in):: first                 ! First timestep
314                                      ! (and therefore initialization necessary)                                      ! (and therefore initialization necessary)
315  c        c      
Legend:
Removed from v.3  
changed lines
  Added in v.51
  ViewVC Help
Powered by ViewVC 1.1.21