Ignore:
Timestamp:
Jun 15, 2009, 6:49:35 PM (15 years ago)
Author:
jghattas
Message:
  • Ajoute le possibilite de forcer avec les aerosols poussiere et sel de mer.
  • Ajoute le module aerosol_mod qui contient des parmetres pour les aerosols
  • flag_aerosol a legerement change signification

A Cozic

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_state_var_mod.F90

    r1179 r1181  
    284284SUBROUTINE phys_state_var_init
    285285use dimphy
     286use aerosol_mod
    286287IMPLICIT NONE
    287288#include "indicesol.h"
    … …  
    381382      ALLOCATE(topswad(klon), solswad(klon))
    382383      ALLOCATE(topswai(klon), solswai(klon))
    383       ALLOCATE(tau_aero(klon,klev,9,2),piz_aero(klon,klev,9,2),cg_aero(klon,klev,9,2))
    384       ALLOCATE(ccm(klon,klev,2))
     384      ALLOCATE(tau_aero(klon,klev,naero_grp,nbands),piz_aero(klon,klev,naero_grp,nbands),cg_aero(klon,klev,naero_grp,nbands))
     385      ALLOCATE(ccm(klon,klev,nbands))
    385386
    386387END SUBROUTINE phys_state_var_init
Note: See TracChangeset for help on using the changeset viewer.