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

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

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

revision 56 by guez, Mon May 16 14:52:30 2011 UTC revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC
# Line 44  contains Line 44  contains
44    
45      !-----------------------------------------------------------------------      !-----------------------------------------------------------------------
46    
47        print *, "Call sequence information: sortvarc"
48    
49      time = real(itau) / day_step + time_0      time = real(itau) / day_step + time_0
50      dtvrs1j = dtvr/daysec      dtvrs1j = dtvr/daysec
51      rjour = real(int(itau*dtvrs1j))      rjour = real(int(itau*dtvrs1j))
Legend:
Removed from v.56  
changed lines
  Added in v.57
  ViewVC Help
Powered by ViewVC 1.1.21