2 |
|
|
3 |
IMPLICIT NONE |
IMPLICIT NONE |
4 |
|
|
5 |
|
INTEGER ncid |
6 |
|
|
7 |
CONTAINS |
CONTAINS |
8 |
|
|
9 |
SUBROUTINE dynredem0(fichnom, iday_end, phis) |
SUBROUTINE dynredem0(iday_end, phis) |
10 |
|
|
11 |
! From dyn3d/dynredem.F, version 1.2, 2004/06/22 11:45:30 |
! From dyn3d/dynredem.F, version 1.2, 2004/06/22 11:45:30 |
12 |
! \'Ecriture du fichier de red\'emarrage au format NetCDF (initialisation) |
! \'Ecriture du fichier de red\'emarrage au format NetCDF (initialisation) |
21 |
USE iniadvtrac_m, ONLY: tname, ttext |
USE iniadvtrac_m, ONLY: tname, ttext |
22 |
USE ju2ymds_m, ONLY: ju2ymds |
USE ju2ymds_m, ONLY: ju2ymds |
23 |
USE netcdf, ONLY: nf90_clobber, nf90_float, nf90_global, nf90_unlimited |
USE netcdf, ONLY: nf90_clobber, nf90_float, nf90_global, nf90_unlimited |
24 |
USE netcdf95, ONLY: nf95_close, nf95_create, nf95_def_dim, nf95_def_var, & |
USE netcdf95, ONLY: nf95_create, nf95_def_dim, nf95_def_var, nf95_enddef, & |
25 |
nf95_enddef, nf95_inq_varid, nf95_put_att, nf95_put_var |
nf95_inq_varid, nf95_put_att, nf95_put_var |
26 |
USE paramet_m, ONLY: iip1, jjp1, llmp1 |
USE paramet_m, ONLY: iip1, jjp1, llmp1 |
27 |
use ymds2ju_m, only: ymds2ju |
use ymds2ju_m, only: ymds2ju |
28 |
|
|
|
CHARACTER(len=*), INTENT(IN):: fichnom |
|
29 |
INTEGER, INTENT(IN):: iday_end |
INTEGER, INTENT(IN):: iday_end |
30 |
REAL, INTENT(IN):: phis(:, :) |
REAL, INTENT(IN):: phis(:, :) |
31 |
|
|
40 |
INTEGER idim_rlonu, idim_rlonv, idim_rlatu, idim_rlatv |
INTEGER idim_rlonu, idim_rlonv, idim_rlatu, idim_rlatv |
41 |
INTEGER idim_s, idim_sig |
INTEGER idim_s, idim_sig |
42 |
INTEGER dimid_temps |
INTEGER dimid_temps |
43 |
INTEGER ncid, varid |
INTEGER varid |
44 |
integer varid_controle, varid_rlonu, varid_rlatu, varid_rlonv, varid_rlatv |
integer varid_controle, varid_rlonu, varid_rlatu, varid_rlonv, varid_rlatv |
45 |
integer varid_xprimu, varid_xprimv, varid_xprimm025, varid_xprimp025 |
integer varid_xprimu, varid_xprimv, varid_xprimm025, varid_xprimp025 |
46 |
integer varid_rlatu1, varid_rlatu2, varid_yprimu1, varid_yprimu2, varid_ap |
integer varid_rlatu1, varid_rlatu2, varid_yprimu1, varid_yprimu2, varid_ap |
92 |
tab_cntrl(30) = iday_end |
tab_cntrl(30) = iday_end |
93 |
tab_cntrl(31:) = 0. |
tab_cntrl(31:) = 0. |
94 |
|
|
95 |
CALL nf95_create(fichnom, nf90_clobber, ncid) |
CALL nf95_create("restart.nc", nf90_clobber, ncid) |
96 |
CALL nf95_put_att(ncid, nf90_global, 'title', & |
CALL nf95_put_att(ncid, nf90_global, 'title', & |
97 |
'start file for the dynamics code') |
'start file for the dynamics code') |
98 |
|
|
208 |
CALL nf95_put_var(ncid, varid_presnivs, presnivs) |
CALL nf95_put_var(ncid, varid_presnivs, presnivs) |
209 |
CALL nf95_put_var(ncid, varid_phisinit, phis) |
CALL nf95_put_var(ncid, varid_phisinit, phis) |
210 |
|
|
|
CALL nf95_close(ncid) |
|
|
|
|
211 |
PRINT *, 'iim, jjm, llm, iday_end', iim, jjm, llm, iday_end |
PRINT *, 'iim, jjm, llm, iday_end', iim, jjm, llm, iday_end |
212 |
PRINT *, 'rad, omeg, g, cpp, kappa', rad, omeg, g, cpp, kappa |
PRINT *, 'rad, omeg, g, cpp, kappa', rad, omeg, g, cpp, kappa |
213 |
|
|