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

Diff of /trunk/dyn3d/dynredem0.f90

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

revision 334 by guez, Thu Jun 13 14:40:06 2019 UTC revision 335 by guez, Thu Sep 12 21:22:46 2019 UTC
# Line 49  CONTAINS Line 49  CONTAINS
49      integer varid_rlatu1, varid_rlatu2, varid_yprimu1, varid_yprimu2, varid_ap      integer varid_rlatu1, varid_rlatu2, varid_yprimu1, varid_yprimu2, varid_ap
50      integer varid_bp, varid_presnivs, varid_phis      integer varid_bp, varid_presnivs, varid_phis
51    
52      REAL zjulian, hours      double precision julian
53      INTEGER yyears0, jjour0, mmois0      INTEGER year, day, month
54      CHARACTER(len=30) unites      CHARACTER(len=30) unites
55    
56      !-----------------------------------------------------------------------      !-----------------------------------------------------------------------
57    
58      PRINT *, 'Call sequence information: dynredem0'      PRINT *, 'Call sequence information: dynredem0'
59    
60      CALL ymds2ju(annee_ref, 1, iday_end, 0., zjulian)      CALL ymds2ju(annee_ref, 1, iday_end, 0., julian)
61      CALL ju2ymds(zjulian, yyears0, mmois0, jjour0, hours)      CALL ju2ymds(julian, year, month, day)
62    
63      tab_cntrl(1) = iim      tab_cntrl(1) = iim
64      tab_cntrl(2) = jjm      tab_cntrl(2) = jjm
# Line 162  CONTAINS Line 162  CONTAINS
162    
163      CALL nf95_def_var(ncid, 'temps', nf90_float, dimid_temps, varid)      CALL nf95_def_var(ncid, 'temps', nf90_float, dimid_temps, varid)
164      CALL nf95_put_att(ncid, varid, 'title', 'Temps de simulation')      CALL nf95_put_att(ncid, varid, 'title', 'Temps de simulation')
165      WRITE(unites, fmt = 200) yyears0, mmois0, jjour0      WRITE(unites, fmt = 200) year, month, day
166  200 FORMAT ('days since ', I4, '-', I2.2, '-', I2.2, ' 00:00:00')  200 FORMAT ('days since ', I4, '-', I2.2, '-', I2.2, ' 00:00:00')
167      CALL nf95_put_att(ncid, varid, 'units', unites)      CALL nf95_put_att(ncid, varid, 'units', unites)
168    
Legend:
Removed from v.334  
changed lines
  Added in v.335
  ViewVC Help
Powered by ViewVC 1.1.21