/[lmdze]/trunk/dyn3d/dynredem0.f
ViewVC logotype

Diff of /trunk/dyn3d/dynredem0.f

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

revision 23 by guez, Mon Dec 14 15:25:16 2009 UTC revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC
# Line 9  CONTAINS Line 9  CONTAINS
9      ! 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
10      ! Ecriture du fichier de redémarrage au format NetCDF (initialisation)      ! Ecriture du fichier de redémarrage au format NetCDF (initialisation)
11    
     USE ioipsl, ONLY : ju2ymds, ymds2ju  
     USE dimens_m, ONLY : iim, jjm, llm, nqmx  
     USE paramet_m, ONLY : iip1, jjp1, llmp1  
12      USE comconst, ONLY : cpp, daysec, dtvr, g, kappa, omeg, rad      USE comconst, ONLY : cpp, daysec, dtvr, g, kappa, omeg, rad
13      USE comvert, ONLY : ap, bp, nivsig, nivsigs, pa, preff, presnivs      USE comvert, ONLY : ap, bp, nivsig, nivsigs, pa, preff, presnivs
     USE logic, ONLY : fxyhypb, ysinus  
14      USE comgeom, ONLY : aire_2d, cu_2d, cv_2d, rlatu, rlatv, rlonu, rlonv      USE comgeom, ONLY : aire_2d, cu_2d, cv_2d, rlatu, rlatv, rlonu, rlonv
15      USE serre, ONLY : clat, clon, dzoomx, dzoomy, grossismx, grossismy, &      USE dimens_m, ONLY : iim, jjm, llm, nqmx
          taux, tauy  
     USE temps, ONLY : annee_ref, day_ref, itaufin, itau_dyn  
16      USE ener, ONLY : ang0, etot0, ptot0, stot0, ztot0      USE ener, ONLY : ang0, etot0, ptot0, stot0, ztot0
17        USE ioipsl, ONLY : ju2ymds, ymds2ju
18      USE iniadvtrac_m, ONLY : tname, ttext      USE iniadvtrac_m, ONLY : tname, ttext
19        USE logic, ONLY : fxyhypb, ysinus
20      USE netcdf95, ONLY : nf95_close, nf95_create, nf95_def_dim, &      USE netcdf95, ONLY : nf95_close, nf95_create, nf95_def_dim, &
21           nf95_def_var, nf95_enddef, nf95_inq_varid, nf95_put_att, &           nf95_def_var, nf95_enddef, nf95_inq_varid, nf95_put_att, &
22           nf95_put_var           nf95_put_var
23      USE netcdf, ONLY : nf90_clobber, nf90_float, nf90_global, &      USE netcdf, ONLY : nf90_clobber, nf90_float, nf90_global, &
24           nf90_unlimited           nf90_unlimited
25        USE paramet_m, ONLY : iip1, jjp1, llmp1
26        USE serre, ONLY : clat, clon, dzoomx, dzoomy, grossismx, grossismy, &
27             taux, tauy
28        USE temps, ONLY : annee_ref, day_ref
29    
30      CHARACTER (len=*), INTENT (IN) :: fichnom      CHARACTER (len=*), INTENT (IN) :: fichnom
31      INTEGER, INTENT (IN) :: iday_end      INTEGER, INTENT (IN) :: iday_end
# Line 105  CONTAINS Line 105  CONTAINS
105      END IF      END IF
106    
107      tab_cntrl(30) = real(iday_end)      tab_cntrl(30) = real(iday_end)
     tab_cntrl(31) = real(itau_dyn+itaufin)  
108    
109      CALL nf95_create(fichnom, nf90_clobber, nid)      CALL nf95_create(fichnom, nf90_clobber, nid)
110      CALL nf95_put_att(nid, nf90_global, 'title', &      CALL nf95_put_att(nid, nf90_global, 'title', &
Legend:
Removed from v.23  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.21