Changeset 1271


Ignore:
Timestamp:
Nov 26, 2009, 4:50:13 PM (15 years ago)
Author:
lguez
Message:

Bug fix. Third dimension of "wo" for COSP.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F

    r1266 r1271  
    31953195
    31963196       print*,'freq_cosp',freq_cosp
    3197           mr_ozone=wo * dobson_u * 1e3 / zmasse
     3197          mr_ozone=wo(:, :, 1) * dobson_u * 1e3 / zmasse
    31983198!       print*,'Dans physiq.F avant appel cosp ref_liq,ref_ice=',
    31993199!     s        ref_liq,ref_ice
Note: See TracChangeset for help on using the changeset viewer.