/[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 7 by guez, Mon Mar 31 12:24:17 2008 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      
# Line 38  c -------------- Line 38  c --------------
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 309  c -------------- Line 309  c --------------
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.7
  ViewVC Help
Powered by ViewVC 1.1.21