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: |
33 |
c 20/08/01: Correct the error through integer-values in interpolations |
c 20/08/01: Correct the error through integer-values in interpolations |
34 |
c 21/08/01: Introduce flag to read in just one decade |
c 21/08/01: Introduce flag to read in just one decade |
35 |
c |
c |
|
c Include-files: |
|
|
c -------------- |
|
|
include "chem.h" |
|
36 |
c |
c |
37 |
c Input: |
c Input: |
38 |
c ------ |
c ------ |
39 |
REAL*8 r_day ! Day of integration |
REAL*8, intent(in):: r_day ! Day of integration |
40 |
LOGICAL, intent(in):: first ! First timestep |
LOGICAL, intent(in):: first ! First timestep |
41 |
! (and therefore initialization necessary) |
! (and therefore initialization necessary) |
42 |
c |
c |
279 |
use dimens_m |
use dimens_m |
280 |
use dimphy |
use dimphy |
281 |
use temps |
use temps |
282 |
use YOMCST |
use SUPHEC_M |
283 |
|
use chem |
284 |
IMPLICIT none |
IMPLICIT none |
285 |
|
|
286 |
c Content: |
c Content: |
302 |
c -------------- |
c -------------- |
303 |
c see above |
c see above |
304 |
c |
c |
|
c Include-files: |
|
|
c -------------- |
|
|
include "chem.h" |
|
305 |
c |
c |
306 |
c Input: |
c Input: |
307 |
c ------ |
c ------ |
308 |
REAL*8 r_day ! Day of integration |
REAL*8, intent(in):: r_day ! Day of integration |
309 |
LOGICAL, intent(in):: first ! First timestep |
LOGICAL, intent(in):: first ! First timestep |
310 |
! (and therefore initialization necessary) |
! (and therefore initialization necessary) |
311 |
c |
c |
494 |
SUBROUTINE getso4fromfile (cyr, so4) |
SUBROUTINE getso4fromfile (cyr, so4) |
495 |
use dimens_m |
use dimens_m |
496 |
use dimphy |
use dimphy |
497 |
include "netcdf.inc" |
use netcdf |
498 |
CHARACTER*15 fname |
CHARACTER*15 fname |
499 |
CHARACTER*4 cyr |
CHARACTER*4 cyr |
500 |
|
|