Changeset 3479 for LMDZ6/trunk/libf/phylmd/conf_phys_m.F90
- Timestamp:
- Apr 17, 2019, 5:43:34 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/conf_phys_m.F90
r3459 r3479 17 17 iflag_cld_th, & 18 18 iflag_ratqs,ratqsbas,ratqshaut,tau_ratqs, & 19 ok_ade, ok_aie, ok_alw, ok_cdnc, aerosol_couple, chemistry_couple, &19 ok_ade, ok_aie, ok_alw, ok_cdnc, ok_volcan, aerosol_couple, chemistry_couple, & 20 20 flag_aerosol, flag_aerosol_strat, flag_aer_feedback, new_aod, & 21 21 flag_bc_internal_mixture, bl95_b0, bl95_b1,& … … 63 63 ! flag_bc_internal_mixture : use BC internal mixture if true 64 64 ! bl95_b*: parameters in the formula to link CDNC to aerosol mass conc 65 ! ok_volcan: activate volcanic diags (SW heat & LW cool rate, SW & LW flux) 65 66 ! 66 67 … … 71 72 LOGICAL :: ok_LES 72 73 LOGICAL :: callstats 73 LOGICAL :: ok_ade, ok_aie, ok_alw, ok_cdnc 74 LOGICAL :: ok_ade, ok_aie, ok_alw, ok_cdnc, ok_volcan 74 75 LOGICAL :: aerosol_couple, chemistry_couple 75 76 INTEGER :: flag_aerosol … … 93 94 LOGICAL, SAVE :: ok_LES_omp 94 95 LOGICAL, SAVE :: callstats_omp 95 LOGICAL, SAVE :: ok_ade_omp, ok_aie_omp, ok_alw_omp, ok_cdnc_omp 96 LOGICAL, SAVE :: ok_ade_omp, ok_aie_omp, ok_alw_omp, ok_cdnc_omp, ok_volcan_omp 96 97 LOGICAL, SAVE :: aerosol_couple_omp, chemistry_couple_omp 97 98 INTEGER, SAVE :: flag_aerosol_omp … … 396 397 ok_cdnc_omp = .FALSE. 397 398 CALL getin('ok_cdnc', ok_cdnc_omp) 399 400 ! 401 !Config Key = ok_volcan 402 !Config Desc = ok to generate volcanic diags 403 !Config Def = .FALSE. 404 !Config Help = Used in radlwsw_m.F 405 ! 406 ok_volcan_omp = .FALSE. 407 CALL getin('ok_volcan', ok_volcan_omp) 408 398 409 ! 399 410 !Config Key = aerosol_couple … … 2310 2321 ok_alw = ok_alw_omp 2311 2322 ok_cdnc = ok_cdnc_omp 2323 ok_volcan = ok_volcan_omp 2312 2324 aerosol_couple = aerosol_couple_omp 2313 2325 chemistry_couple = chemistry_couple_omp … … 2656 2668 WRITE(lunout,*) ' pmagic = ',pmagic 2657 2669 WRITE(lunout,*) ' ok_ade = ',ok_ade 2670 WRITE(lunout,*) ' ok_volcan = ',ok_volcan 2658 2671 WRITE(lunout,*) ' ok_aie = ',ok_aie 2659 2672 WRITE(lunout,*) ' ok_alw = ',ok_alw
Note: See TracChangeset
for help on using the changeset viewer.