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