Ignore:
Timestamp:
Jan 25, 2019, 7:51:34 PM (6 years ago)
Author:
oboucher
Message:

Various additions for the interactive CO2 cycle

File:
1 edited

Legend:

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

    r3435 r3450  
    244244    USE indice_sol_mod
    245245    USE phytrac_mod, ONLY : phytrac
    246     USE carbon_cycle_mod, ONLY : infocfields_init
     246    USE carbon_cycle_mod, ONLY : infocfields_init, RCO2_glo, carbon_cycle_rad
    247247
    248248#ifdef CPP_RRTM
     
    39673967          RCFC11 = RCFC11_act
    39683968          RCFC12 = RCFC12_act
     3969          !
     3970          !--interactive CO2 in ppm from carbon cycle
     3971          IF (carbon_cycle_rad.AND..NOT.debut) THEN
     3972            RCO2=RCO2_glo
     3973          ENDIF
    39693974          !
    39703975          IF (prt_level .GE.10) THEN
    39713976             print *,' ->radlwsw, number 1 '
    39723977          ENDIF
    3973 
    39743978          !
    39753979          CALL radlwsw &
Note: See TracChangeset for help on using the changeset viewer.