/[lmdze]/trunk/Sources/phylmd/phyredem.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/phyredem.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 15 by guez, Fri Aug 1 15:24:12 2008 UTC revision 19 by guez, Thu Aug 7 15:46:20 2008 UTC
# Line 69  contains Line 69  contains
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)
Legend:
Removed from v.15  
changed lines
  Added in v.19
  ViewVC Help
Powered by ViewVC 1.1.21