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 |
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 |
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 |