Ignore:
Timestamp:
Dec 14, 2017, 10:35:53 AM (7 years ago)
Author:
jyg
Message:

Some cleaning in cv3_tracer in cv3_routines.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/cv3_routines.F90

    r2908 r3126  
    43594359
    43604360!inputs:
    4361   INTEGER ncum, nd, na, nloc, len
    4362   REAL ment(nloc, na, na), sigij(nloc, na, na)
    4363   REAL clw(nloc, nd), elij(nloc, na, na)
    4364   REAL ep(nloc, na)
    4365   INTEGER icb(nloc), inb(nloc)
    4366   REAL Vprecip(nloc, nd+1)
     4361  INTEGER, INTENT (IN)                               :: ncum, nd, na, nloc, len
     4362  INTEGER, DIMENSION (len), INTENT (IN)              :: icb, inb
     4363  REAL, DIMENSION (len, na, na), INTENT (IN)         :: ment, sigij, elij
     4364  REAL, DIMENSION (len, nd), INTENT (IN)             :: clw
     4365  REAL, DIMENSION (len, na), INTENT (IN)             :: ep
     4366  REAL, DIMENSION (len, nd+1), INTENT (IN)           :: Vprecip
    43674367!ouputs:
    4368   REAL da(nloc, na), phi(nloc, na, na)
    4369   REAL phi2(nloc, na, na)
    4370   REAL d1a(nloc, na), dam(nloc, na)
    4371   REAL epmlmMm(nloc, na, na), eplaMm(nloc, na)
     4368  REAL, DIMENSION (len, na, na), INTENT (OUT)        :: phi, phi2, epmlmMm
     4369  REAL, DIMENSION (len, na), INTENT (OUT)            :: da, d1a, dam, eplaMm
     4370!
    43724371! variables pour tracer dans precip de l'AA et des mel
    43734372!local variables:
Note: See TracChangeset for help on using the changeset viewer.