Ignore:
Timestamp:
Jan 11, 2016, 10:25:33 PM (9 years ago)
Author:
oboucher
Message:

Differentiate radiation call for aerosol_couple
aero = old INCA routine, aeNP = new routine in phylmd

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/physiq_mod.F90

    r2422 r2424  
    34663466  !
    34673467
    3468   IF (aerosol_couple) THEN
     3468  IF (aerosol_couple.AND.config_inca=='aero') THEN
    34693469     mass_solu_aero(:,:)    = ccm(:,:,1)
    34703470     mass_solu_aero_pi(:,:) = ccm(:,:,2)
    … …  
    35923592      ENDIF
    35933593
    3594      IF (aerosol_couple) THEN
     3594     IF (aerosol_couple.AND.config_inca=='aero') THEN
    35953595#ifdef INCA
    35963596        CALL radlwsw_inca  &
Note: See TracChangeset for help on using the changeset viewer.