/[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 22 by guez, Fri Jul 31 15:18:47 2009 UTC revision 23 by guez, Mon Dec 14 15:25:16 2009 UTC
# Line 1  Line 1 
1  SUBROUTINE dynredem1(fichnom, time, vcov, ucov, teta, q, masse, ps)  SUBROUTINE dynredem1(fichnom, vcov, ucov, teta, q, masse, ps)
2    
3    ! From dyn3d/dynredem.F, v 1.2 2004/06/22 11:45:30    ! From dyn3d/dynredem.F, v 1.2 2004/06/22 11:45:30
   
4    ! Ecriture du fichier de redémarrage au format NetCDF    ! Ecriture du fichier de redémarrage au format NetCDF
5    
6    USE dimens_m, ONLY : iim, jjm, llm, nqmx    USE dimens_m, ONLY : iim, jjm, llm, nqmx
# Line 14  SUBROUTINE dynredem1(fichnom, time, vcov Line 13  SUBROUTINE dynredem1(fichnom, time, vcov
13    IMPLICIT NONE    IMPLICIT NONE
14    
15    CHARACTER(len=*), INTENT (IN) :: fichnom    CHARACTER(len=*), INTENT (IN) :: fichnom
   REAL, INTENT (IN):: time  
16    REAL, INTENT (IN) :: vcov(iim + 1, jjm, llm), ucov(iim+1, jjm+1, llm)    REAL, INTENT (IN) :: vcov(iim + 1, jjm, llm), ucov(iim+1, jjm+1, llm)
17    REAL, INTENT (IN) :: teta(iim+1, jjm+1, llm)    REAL, INTENT (IN) :: teta(iim+1, jjm+1, llm)
18    REAL, INTENT (IN) :: q(iim+1, jjm+1, llm, nqmx)    REAL, INTENT (IN) :: q(iim+1, jjm+1, llm, nqmx)
19    REAL, INTENT (IN) :: ps(iim+1, jjm+1), masse(iim+1, jjm+1, llm)    REAL, INTENT (IN) :: ps(iim+1, jjm+1), masse(iim+1, jjm+1, llm)
20    
21    ! Variables local to the procedure:    ! Variables local to the procedure:
22    INTEGER nid, nvarid, ierr    INTEGER nid, nvarid
23    INTEGER iq    INTEGER iq
24    REAL, pointer:: tab_cntrl(:) ! tableau des paramètres du run    REAL, pointer:: tab_cntrl(:) ! tableau des paramètres du run
25    INTEGER :: nb = 0    INTEGER :: nb = 0
# Line 35  SUBROUTINE dynredem1(fichnom, time, vcov Line 33  SUBROUTINE dynredem1(fichnom, time, vcov
33    ! Écriture/extension de la coordonnée temps    ! Écriture/extension de la coordonnée temps
34    nb = nb + 1    nb = nb + 1
35    call nf95_inq_varid(nid, 'temps', nvarid)    call nf95_inq_varid(nid, 'temps', nvarid)
36    call nf95_put_var(nid, nvarid, time, start=(/nb/))    call nf95_put_var(nid, nvarid, values=0., start=(/nb/))
37    PRINT *, 'Enregistrement pour :'    PRINT *, "Enregistrement pour nb = ", nb
   print *, "nb = ", nb  
   print *, "time = ", time  
38    
39    ! Récriture du tableau de contrôle, "itaufin" n'est plus défini quand    ! Récriture du tableau de contrôle, "itaufin" n'est plus défini quand
40    ! on passe dans "dynredem0"    ! on passe dans "dynredem0"
Legend:
Removed from v.22  
changed lines
  Added in v.23
  ViewVC Help
Powered by ViewVC 1.1.21