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

Diff of /trunk/dyn3d/sortvarc.f

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

revision 43 by guez, Fri Apr 8 12:43:31 2011 UTC revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC
# Line 22  contains Line 22  contains
22      use filtreg_m, only: filtreg      use filtreg_m, only: filtreg
23    
24      ! Arguments:      ! Arguments:
25      INTEGER, INTENT (IN) :: itau      INTEGER, INTENT(IN) :: itau
26      REAL :: ucov(ip1jmp1, llm), masse(ip1jmp1, llm)      REAL :: ucov(ip1jmp1, llm), masse(ip1jmp1, llm)
27      real, intent(in):: teta(ip1jmp1, llm)      real, intent(in):: teta(ip1jmp1, llm)
28      REAL :: ps(ip1jmp1), phis(ip1jmp1)      REAL, INTENT(IN):: ps(ip1jmp1), phis(ip1jmp1)
29      REAL :: vorpot(ip1jm, llm)      REAL :: vorpot(ip1jm, llm)
30      REAL :: phi(ip1jmp1, llm), bern(ip1jmp1, llm)      REAL :: phi(ip1jmp1, llm), bern(ip1jmp1, llm)
31      REAL :: dp(ip1jmp1)      REAL :: dp(ip1jmp1)
# 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.43  
changed lines
  Added in v.57
  ViewVC Help
Powered by ViewVC 1.1.21