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

Diff of /trunk/libf/dyn3d/dynredem0.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 6  CONTAINS Line 6  CONTAINS
6    
7    SUBROUTINE dynredem0(fichnom, iday_end, phis)    SUBROUTINE dynredem0(fichnom, iday_end, phis)
8    
9      ! From dyn3d/dynredem.F, v 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    
12      USE ioipsl, ONLY : ju2ymds, ymds2ju      USE ioipsl, ONLY : ju2ymds, ymds2ju
# Line 54  CONTAINS Line 54  CONTAINS
54    
55      PRINT *, 'Call sequence information: dynredem0'      PRINT *, 'Call sequence information: dynredem0'
56    
57      CALL ymds2ju(annee_ref, 1, iday_end, 0.0, zjulian)      CALL ymds2ju(annee_ref, 1, iday_end, 0., zjulian)
58      CALL ju2ymds(zjulian, yyears0, mmois0, jjour0, hours)      CALL ju2ymds(zjulian, yyears0, mmois0, jjour0, hours)
59    
60      DO l = 1, length      DO l = 1, length
Legend:
Removed from v.22  
changed lines
  Added in v.23
  ViewVC Help
Powered by ViewVC 1.1.21