1 |
SUBROUTINE initfluxsto(tstep, t_ops, t_wrt, nq, fileid, filevid, filedid) |
SUBROUTINE initfluxsto(tstep, t_ops, t_wrt, fileid, filevid, filedid) |
2 |
|
|
3 |
! From bibio/initfluxsto.F, v 1.1.1.1 2004/05/19 12:53:05 |
! From bibio/initfluxsto.F, v 1.1.1.1 2004/05/19 12:53:05 |
4 |
|
|
15 |
! tstep: duree du pas de temps en seconde |
! tstep: duree du pas de temps en seconde |
16 |
! t_ops: frequence de l'operation pour IOIPSL |
! t_ops: frequence de l'operation pour IOIPSL |
17 |
! t_wrt: frequence d'ecriture sur le fichier |
! t_wrt: frequence d'ecriture sur le fichier |
|
! nq: nombre de traceurs |
|
18 |
|
|
19 |
! Sortie: |
! Sortie: |
20 |
! fileid: ID du fichier netcdf cree |
! fileid: ID du fichier netcdf cree |
23 |
! L. Fairhead, 03/99 |
! L. Fairhead, 03/99 |
24 |
|
|
25 |
USE comconst |
USE comconst |
|
USE comgeom |
|
26 |
use conf_gcm_m |
use conf_gcm_m |
27 |
USE dimens_m |
USE dimens_m |
28 |
USE disvert_m |
USE disvert_m |
29 |
use dynetat0_m, only: day_ref, annee_ref |
use dynetat0_m, only: day_ref, annee_ref, rlonu, rlatu, rlonv, rlatv |
30 |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
USE histbeg_totreg_m, ONLY : histbeg_totreg |
31 |
USE histdef_m, ONLY : histdef |
USE histdef_m, ONLY : histdef |
32 |
USE histend_m, ONLY : histend |
USE histend_m, ONLY : histend |
35 |
USE histvert_m, ONLY : histvert |
USE histvert_m, ONLY : histvert |
36 |
USE nr_util, ONLY : pi |
USE nr_util, ONLY : pi |
37 |
USE paramet_m |
USE paramet_m |
|
USE serre |
|
38 |
USE temps, ONLY : itau_dyn |
USE temps, ONLY : itau_dyn |
39 |
use ymds2ju_m, only: ymds2ju |
use ymds2ju_m, only: ymds2ju |
40 |
|
|
41 |
IMPLICIT NONE |
IMPLICIT NONE |
42 |
|
|
43 |
! Arguments |
! Arguments |
|
INTEGER itau |
|
44 |
REAL, INTENT (IN) :: tstep |
REAL, INTENT (IN) :: tstep |
45 |
REAL t_ops, t_wrt |
REAL t_ops, t_wrt |
46 |
INTEGER fileid, filevid, filedid |
INTEGER fileid, filevid, filedid |
|
INTEGER nq, ndex(1) |
|
47 |
REAL nivd(1) |
REAL nivd(1) |
48 |
|
|
49 |
! Variables locales |
! Variables locales |
50 |
REAL zjulian |
REAL zjulian |
51 |
CHARACTER(len=3) str |
CHARACTER(len=3) str |
52 |
CHARACTER(len=10) ctrac |
CHARACTER(len=10) ctrac |
|
INTEGER iq |
|
53 |
REAL rlong(iip1, jjp1), rlat(iip1, jjp1) |
REAL rlong(iip1, jjp1), rlat(iip1, jjp1) |
54 |
INTEGER uhoriid, vhoriid, thoriid, zvertiid, dhoriid, dvertiid |
INTEGER uhoriid, vhoriid, thoriid, zvertiid, dhoriid, dvertiid |
55 |
INTEGER ii, jj, l |
INTEGER ii, jj, l |