6 |
|
|
7 |
SUBROUTINE dynredem0(fichnom, iday_end, phis) |
SUBROUTINE dynredem0(fichnom, iday_end, phis) |
8 |
|
|
9 |
! From dyn3d/dynredem.F, v 1.2 2004/06/22 11:45:30 |
! From dyn3d/dynredem.F, version 1.2 2004/06/22 11:45:30 |
10 |
! Ecriture du fichier de redémarrage au format NetCDF (initialisation) |
! Ecriture du fichier de redémarrage au format NetCDF (initialisation) |
11 |
|
|
12 |
USE ioipsl, ONLY : ju2ymds, ymds2ju |
USE ioipsl, ONLY : ju2ymds, ymds2ju |
34 |
! Local: |
! Local: |
35 |
|
|
36 |
INTEGER :: iq, l |
INTEGER :: iq, l |
37 |
INTEGER :: length |
INTEGER, PARAMETER:: length = 100 |
|
PARAMETER (length=100) |
|
38 |
REAL :: tab_cntrl(length) ! tableau des parametres du run |
REAL :: tab_cntrl(length) ! tableau des parametres du run |
39 |
|
|
40 |
! Variables locales pour NetCDF: |
! Variables locales pour NetCDF: |
54 |
|
|
55 |
PRINT *, 'Call sequence information: dynredem0' |
PRINT *, 'Call sequence information: dynredem0' |
56 |
|
|
57 |
CALL ymds2ju(annee_ref, 1, iday_end, 0.0, zjulian) |
CALL ymds2ju(annee_ref, 1, iday_end, 0., zjulian) |
58 |
CALL ju2ymds(zjulian, yyears0, mmois0, jjour0, hours) |
CALL ju2ymds(zjulian, yyears0, mmois0, jjour0, hours) |
59 |
|
|
60 |
DO l = 1, length |
DO l = 1, length |