Changeset 2628 for LMDZ5/trunk


Ignore:
Timestamp:
Sep 22, 2016, 12:34:40 PM (8 years ago)
Author:
jyg
Message:

Initialization of clw in cva_driver.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/cva_driver.F90

    r2481 r2628  
    144144! ep1           Real           Output   
    145145! sigij1        Real           Output     used in tracer transport (cvltr)
     146! clw1          Real           Output   condensed water content of the adiabatic updraught
    146147! elij1         Real           Output
    147148! wghti1        Real           Output   final weight of the feeding layers,
    … …  
    254255  REAL, DIMENSION (len, nd), INTENT (OUT)            :: evap1, ep1
    255256  REAL, DIMENSION (len, nd, nd), INTENT (OUT)        :: sigij1, elij1
     257  REAL, DIMENSION (len, nd), INTENT (OUT)            :: clw1
    256258!JYG,RL
    257259  REAL, DIMENSION (len, nd), INTENT (OUT)            :: wghti1      ! final weight of the feeding layers
    … …  
    424426  REAL h1(klon, klev), h1_wake(klon, klev)
    425427  REAL tp1(klon, klev)
    426   REAL clw1(klon, klev)
    427428  REAL th1(klon, klev), th1_wake(klon, klev)
    428429
    … …  
    650651  sigij1(:, :, :) = 0.
    651652  elij1(:, :, :) = 0.
     653  clw1(:,:) = 0.
    652654  wghti1(:,:) = 0.
    653655  phi21(:, :, :) = 0.
Note: See TracChangeset for help on using the changeset viewer.