Changeset 1314 for trunk/LMDZ.VENUS/libf


Ignore:
Timestamp:
Jul 11, 2014, 4:00:36 PM (10 years ago)
Author:
slebonnois
Message:

SL: bug correction upper atmosphere

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.VENUS/libf/phyvenus/phys_state_var_mod.F90

    r1310 r1314  
    137137
    138138      ALLOCATE(zuthe(klon),zvthe(klon))
    139 !
     139
     140      ALLOCATE(ovmr_gcm(klon,klev),covmr_gcm(klon,klev))
     141      ALLOCATE(co2vmr_gcm(klon,klev),n2vmr_gcm(klon,klev))
     142      ALLOCATE(nvmr_gcm(klon,klev))
     143
    140144      ALLOCATE(heat(klon,klev), heat0(klon,klev))
    141145      ALLOCATE(cool(klon,klev), cool0(klon,klev))
    … …  
    168172      deallocate(zuthe, zvthe)
    169173
     174      deallocate(ovmr_gcm,covmr_gcm)
     175      deallocate(co2vmr_gcm,n2vmr_gcm)
     176      deallocate(nvmr_gcm)
     177
    170178      deallocate(heat, heat0)
    171179      deallocate(cool, cool0)
Note: See TracChangeset for help on using the changeset viewer.