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