Ignore:
Timestamp:
May 20, 2021, 12:19:47 PM (3 years ago)
Author:
idelkadi
Message:

Error correction (variable ZO3_DP to be treated under CPP_ECRAD keys)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

    r3908 r3909  
    567567        POZON(i,k, :) = wo(iof+i, k, :) * RG * dobson_u * 1e3 &
    568568             / (paprs(iof+i, k) - paprs(iof+i, k+1))
     569#ifdef CPP_ECRAD
    569570        ZO3_DP(i,k) = wo(iof+i, k, 1) * RG * dobson_u * 1e3
     571#endif
    570572!       A activer pour CCMVAL on prend l'ozone impose (MPL 07042010)
    571573!       POZON(i,k,:) = wo(i,k,:) 
Note: See TracChangeset for help on using the changeset viewer.