Changeset 1676 for trunk/LMDZ.VENUS


Ignore:
Timestamp:
Mar 17, 2017, 8:24:15 AM (8 years ago)
Author:
emillour
Message:

Venus GCM: fix type mismatch in the declaration of nlay.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.VENUS/libf/phyvenus/cloudvenus/sed_and_prod_mad.F90

    r1661 r1676  
    172172  IMPLICIT NONE
    173173
    174   REAL, INTENT(in)  :: nlay, dt
     174  REAL, INTENT(in)  :: dt
     175  INTEGER, INTENT(in) :: nlay
    175176  REAL, INTENT(in), DIMENSION(nlay)  :: dzlay !! Atmospheric thickness between the center of 2 adjacent layers (\(m\))
    176177  REAL, INTENT(in), DIMENSION(nlay)  :: mk    !! \(k^{th}\) order moment to sediment (in \(m^{k}\)).
    … …  
    243244 
    244245  IMPLICIT NONE
    245   REAL, INTENT(in)         ::  dt, nlay
     246  REAL, INTENT(in)  :: dt
     247  INTEGER, INTENT(in) :: nlay
    246248  REAL, INTENT(in), DIMENSION(nlay+1)          :: plev
    247249  !! Pressure at each level (Pa).
    … …  
    330332  IMPLICIT NONE
    331333
    332   REAL, INTENT(in) :: dt, nlay
     334  REAL, INTENT(in)  :: dt
     335  INTEGER, INTENT(in) :: nlay
    333336  REAL, INTENT(in), DIMENSION(nlay)   :: m0
    334337  !! 0th order moment of the CCN precursors (\(m^{-3}\)).
    … …  
    438441  IMPLICIT NONE
    439442
    440   REAL, INTENT(in) :: dt, nlay
     443  REAL, INTENT(in)  :: dt
     444  INTEGER, INTENT(in) :: nlay
    441445  REAL, INTENT(in), DIMENSION(nlay,2) :: M0mode
    442446  !! 0th order moment (\(m^{-3}\)).
Note: See TracChangeset for help on using the changeset viewer.