Changeset 3450 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90
- Timestamp:
- Jan 25, 2019, 7:51:34 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r3435 r3450 244 244 USE indice_sol_mod 245 245 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 247 247 248 248 #ifdef CPP_RRTM … … 3967 3967 RCFC11 = RCFC11_act 3968 3968 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 3969 3974 ! 3970 3975 IF (prt_level .GE.10) THEN 3971 3976 print *,' ->radlwsw, number 1 ' 3972 3977 ENDIF 3973 3974 3978 ! 3975 3979 CALL radlwsw &
Note: See TracChangeset
for help on using the changeset viewer.