Parent Directory | Revision Log | Patch
revision 46 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)) |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |