/[lmdze]/trunk/libf/dyn3d/dynredem1.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/dynredem1.f90

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

revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC revision 62 by guez, Thu Jul 26 14:37:37 2012 UTC
# Line 22  contains Line 22  contains
22      INTEGER, INTENT (IN) :: itau      INTEGER, INTENT (IN) :: itau
23    
24      ! Variables local to the procedure:      ! Variables local to the procedure:
25      INTEGER nid, nvarid      INTEGER ncid, varid
26      INTEGER iq      INTEGER iq
27      INTEGER:: nb = 0      INTEGER:: nb = 0
28    
# Line 30  contains Line 30  contains
30    
31      PRINT *, 'Call sequence information: dynredem1'      PRINT *, 'Call sequence information: dynredem1'
32    
33      call nf95_open(fichnom, nf90_write, nid)      call nf95_open(fichnom, nf90_write, ncid)
34    
35      ! Écriture/extension de la coordonnée temps      ! Écriture/extension de la coordonnée temps
36      nb = nb + 1      nb = nb + 1
37      call nf95_inq_varid(nid, 'temps', nvarid)      call nf95_inq_varid(ncid, 'temps', varid)
38      call nf95_put_var(nid, nvarid, values=0., start=(/nb/))      call nf95_put_var(ncid, varid, values=0., start=(/nb/))
39      PRINT *, "Enregistrement pour nb = ", nb      PRINT *, "Enregistrement pour nb = ", nb
40    
41      ! Récriture du tableau de contrôle, "itaufin" n'est pas défini quand      ! Récriture du tableau de contrôle, "itaufin" n'est pas défini quand
42      ! on passe dans "dynredem0"      ! on passe dans "dynredem0"
43      call nf95_inq_varid(nid, 'controle', nvarid)      call nf95_inq_varid(ncid, 'controle', varid)
44      call nf95_put_var(nid, nvarid, real(itau), start=(/31/))      call nf95_put_var(ncid, varid, real(itau), start=(/31/))
45    
46      ! Écriture des champs      ! Écriture des champs
47    
48      call nf95_inq_varid(nid, 'ucov', nvarid)      call nf95_inq_varid(ncid, 'ucov', varid)
49      call nf95_put_var(nid, nvarid, ucov)      call nf95_put_var(ncid, varid, ucov)
50    
51      call nf95_inq_varid(nid, 'vcov', nvarid)      call nf95_inq_varid(ncid, 'vcov', varid)
52      call nf95_put_var(nid, nvarid, vcov)      call nf95_put_var(ncid, varid, vcov)
53    
54      call nf95_inq_varid(nid, 'teta', nvarid)      call nf95_inq_varid(ncid, 'teta', varid)
55      call nf95_put_var(nid, nvarid, teta)      call nf95_put_var(ncid, varid, teta)
56    
57      DO iq = 1, nqmx      DO iq = 1, nqmx
58         call nf95_inq_varid(nid, tname(iq), nvarid)         call nf95_inq_varid(ncid, tname(iq), varid)
59         call nf95_put_var(nid, nvarid, q(:, :, :, iq))         call nf95_put_var(ncid, varid, q(:, :, :, iq))
60      END DO      END DO
61    
62      call nf95_inq_varid(nid, 'masse', nvarid)      call nf95_inq_varid(ncid, 'masse', varid)
63      call nf95_put_var(nid, nvarid, masse)      call nf95_put_var(ncid, varid, masse)
64    
65      call nf95_inq_varid(nid, 'ps', nvarid)      call nf95_inq_varid(ncid, 'ps', varid)
66      call nf95_put_var(nid, nvarid, ps)      call nf95_put_var(ncid, varid, ps)
67    
68      call nf95_close(nid)      call nf95_close(ncid)
69    
70    END SUBROUTINE dynredem1    END SUBROUTINE dynredem1
71    
Legend:
Removed from v.27  
changed lines
  Added in v.62
  ViewVC Help
Powered by ViewVC 1.1.21