Ignore:
Timestamp:
Nov 23, 1999, 4:17:02 PM (25 years ago)
Author:
lmdz
Message:

rajout de vcov dans sortvarc0.F pour homogeneite avec sortvarc.F et caldyn0.F

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/dyn3d/sortvarc0.F

    r2 r6  
    11      SUBROUTINE sortvarc0
    2      $(itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time )
     2     $(itau,ucov,teta,ps,masse,pk,phis,vorpot,phi,bern,dp,time ,
     3     $ vcov)
    34      IMPLICIT NONE
    45
    … …  
    3233      INTEGER itau
    3334      REAL ucov(ip1jmp1,llm),teta(ip1jmp1,llm),masse(ip1jmp1,llm)
     35      REAL vcov(ip1jm,llm)
    3436      REAL ps(ip1jmp1),phis(ip1jmp1)
    3537      REAL vorpot(ip1jm,llm)
Note: See TracChangeset for help on using the changeset viewer.