69 |
PRINT *, 'Call sequence information: phyredem' |
PRINT *, 'Call sequence information: phyredem' |
70 |
CALL nf95_create(fichnom, nf90_clobber, nid) |
CALL nf95_create(fichnom, nf90_clobber, nid) |
71 |
|
|
72 |
call nf95_put_att(nid, nf90_global, 'title', 'Fichier redémarrage physique') |
call nf95_put_att(nid, nf90_global, 'title', & |
73 |
|
'Fichier redémarrage physique') |
74 |
call nf95_put_att(nid, nf90_global, "itau_phy", itau_phy) |
call nf95_put_att(nid, nf90_global, "itau_phy", itau_phy) |
75 |
|
|
76 |
ierr = nf_def_dim(nid, 'points_physiques', klon, idim2) |
ierr = nf_def_dim(nid, 'points_physiques', klon, idim2) |