Changeset 1969 for LMDZ5


Ignore:
Timestamp:
Feb 11, 2014, 7:11:45 PM (11 years ago)
Author:
fhourdin
Message:

Correction. Declarations manquantes.
Bug fixing (mixing declarations).

Location:
LMDZ5/trunk/libf/phy1d
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phy1d/1D_decl_cases.h

    r1966 r1969  
    209209        real omega_profs(nlev_sandu),o3mmr_profs(nlev_sandu)
    210210
     211        real, dimension(nlev_sandu) :: relax_u,relax_v,relax_thl
     212        real, dimension(nlev_sandu,2) :: relax_q
     213
    211214        real thl_mod(llm),omega_mod(llm),o3mmr_mod(llm),tke_mod(llm)
    212215!vertical advection computation

  • LMDZ5/trunk/libf/phy1d/lmdz1d.F

    r1966 r1969  
    155155      REAL, ALLOCATABLE, DIMENSION(:,:):: dq_dyn
    156156      REAL, ALLOCATABLE, DIMENSION(:,:):: d_q_adv
    157       REAL, ALLOCATABLE, DIMENSION(:):: d_th_adv
     157!     REAL, ALLOCATABLE, DIMENSION(:):: d_th_adv
    158158
    159159!---------------------------------------------------------------------
    … …  
    426426      allocate(dq_dyn(llm,nqtot))
    427427      allocate(d_q_adv(llm,nqtot))
    428       allocate(d_th_adv(llm))
     428!     allocate(d_th_adv(llm))
    429429
    430430c
Note: See TracChangeset for help on using the changeset viewer.