Commit 880eb996 authored by Satoshi Endo's avatar Satoshi Endo
Browse files

Merge branch 'wrf_faster-dev' into wrf_faster

parents f969605a e3345fed
......@@ -426,7 +426,7 @@ state real power ij misc 1 - irh "Pow
# State for derived time quantities.
state integer itimestep - - - - rh "itimestep" "" ""
state real xtime - - - - rh "xtime" "minutes since YYYY-MM-DD hh:mm:ss" "minutes since simulation start"
state real xtime - - - - rh09 "xtime" "minutes since YYYY-MM-DD hh:mm:ss" "minutes since simulation start"
state real julian - - - - - "julian" "day of year, 0.0 at 0Z on 1 Jan." "days"
# input file descriptor for lbcs on parent domain
......
......@@ -124,13 +124,11 @@ state integer crm_stat_count - dyn_em - - r "cr
state real prev_stat_secs - dyn_em - - r "prev_stat_secs" "Time in sec after previous initialization of stat" ""
state integer stat_count_nocl k dyn_em 1 - r "stat_count_nocl" "Counter for stat count without cloudy grid at the level" ""
state integer stat_count_nocc k dyn_em 1 - r "stat_count_nocc" "Counter for stat count without core grid at the level" ""
#!
state real cst_hour - misc 1 - rh9 "cst_hour" "Time in hour since simulation start" "hour"
#! set A
state real cst_cldlow - misc 1 - rh9 "cst_cldlow" "Fractional low-cloud cover (<5 km)" "(0-1)"
state real cst_cldtot - misc 1 - rh9 "cst_cldtot" "Fractional cloud cover" "(0-1)"
state real cst_lwp - misc 1 - rh9 "cst_lwp" "Vertical integrated liquid water path" "kg/m^2"
state real cst_iwp - misc 1 - rh9 "cst_iwp" "Vertical integrated ice water path" "kg/m^2"
state real cst_lwp - misc 1 - rh9 "cst_lwp" "Vertical integrated liquid water path (based on ql)" "kg/m^2"
state real cst_iwp - misc 1 - rh9 "cst_iwp" "Vertical integrated ice water path (based on qf)" "kg/m^2"
state real cst_precw - misc 1 - rh9 "cst_precw" "Vertical integrated water vapor" "kg/m^2"
state real cst_tke - misc 1 - rh9 "cst_tke" "Vertical integrated TKE" "kg/s^2"
state real cst_tsair - misc 1 - rh9 "cst_tsair" "Surface air temperature" "K"
......@@ -162,12 +160,12 @@ state real csp_thv k misc 1 - rh9 "c
state real csp_thl k misc 1 - rh9 "csp_thl" "Liquid water potential temperature" "K"
state real csp_qv k misc 1 - rh9 "csp_qv" "Water vapor mixing ratio" "kg/kg"
state real csp_qc k misc 1 - rh9 "csp_qc" "Cloud water mixing ratio" "kg/kg"
state real csp_qi k misc 1 - rh9 "csp_qi" "Ice crystal mixing ratio" "kg/kg"
state real csp_qi k misc 1 - rh9 "csp_qi" "Ice crystal (cloud ice) mixing ratio" "kg/kg"
state real csp_ql k misc 1 - rh9 "csp_ql" "Liquid water mixing ratio" "kg/kg"
state real csp_qf k misc 1 - rh9 "csp_qf" "Frozen water mixing ratio" "kg/kg"
state real csp_qt k misc 1 - rh9 "csp_qt" "Total (vapor+liquid+ice) water mixing ratio" "kg/kg"
state real csp_lwc k misc 1 - rh9 "csp_lwc" "Liquid water content" "kg/m^3"
state real csp_iwc k misc 1 - rh9 "csp_iwc" "Ice water content" "kg/m^3"
state real csp_qt k misc 1 - rh9 "csp_qt" "Total (vapor+liquid+frozen) water mixing ratio" "kg/kg"
state real csp_lwc k misc 1 - rh9 "csp_lwc" "Liquid water content (based on ql)" "kg/m^3"
state real csp_iwc k misc 1 - rh9 "csp_iwc" "Ice water content (based on qf)" "kg/m^3"
state real csp_speqv k misc 1 - rh9 "csp_speqv" "Specific humidity" "kg/kg"
state real csp_a_cl k misc 1 - rh9 "csp_a_cl" "Fraction of cloudy grid points" "(0-1)"
state real csp_rho k misc 1 - rh9 "csp_rho " "Density" "kg/m^3"
......@@ -185,7 +183,7 @@ state real csp_wthv k misc 1 - rh9 "c
state real csp_wthl k misc 1 - rh9 "csp_wthl" "Liquid water potential temperature flux (rs+sgs)" "K m/s"
state real csp_wqv k misc 1 - rh9 "csp_wqv" "Water vapor flux (rs+sgs)" "kg/kg m/s"
state real csp_wqc k misc 1 - rh9 "csp_wqc" "Cloud water flux (rs+sgs)" "kg/kg m/s"
state real csp_wqi k misc 1 - rh9 "csp_wqi" "Ice water flux (rs+sgs)" "kg/kg m/s"
state real csp_wqi k misc 1 - rh9 "csp_wqi" "Ice crystal (cloud ice) flux (rs+sgs)" "kg/kg m/s"
state real csp_wql k misc 1 - rh9 "csp_wql" "Liquid water flux (rs+sgs)" "kg/kg m/s"
state real csp_wqf k misc 1 - rh9 "csp_wqf" "Frozen water flux (rs+sgs)" "kg/kg m/s"
state real csp_wqt k misc 1 - rh9 "csp_wqt" "Total water flux (rs+sgs)" "kg/kg m/s"
......@@ -196,7 +194,7 @@ state real csp_wthv_sgs k misc 1 - rh9 "c
state real csp_wthl_sgs k misc 1 - rh9 "csp_wthl_sgs" "Liquid water potential temperature flux (sgs)" "K m/s"
state real csp_wqv_sgs k misc 1 - rh9 "csp_wqv_sgs" "Water vapor flux (sgs)" "kg/kg m/s"
state real csp_wqc_sgs k misc 1 - rh9 "csp_wqc_sgs" "Cloud water flux (sgs)" "kg/kg m/s"
state real csp_wqi_sgs k misc 1 - rh9 "csp_wqi_sgs" "Ice cyrstal flux (sgs)" "kg/kg m/s"
state real csp_wqi_sgs k misc 1 - rh9 "csp_wqi_sgs" "Ice crystal (cloud ice) flux (sgs)" "kg/kg m/s"
state real csp_wql_sgs k misc 1 - rh9 "csp_wql_sgs" "Liquid water flux (sgs)" "kg/kg m/s"
state real csp_wqf_sgs k misc 1 - rh9 "csp_wqf_sgs" "Frozen water flux (sgs)" "kg/kg m/s"
state real csp_wqt_sgs k misc 1 - rh9 "csp_wqt_sgs" "Total water flux (sgs)" "kg/kg m/s"
......@@ -250,6 +248,7 @@ state real csp_qc_c k misc 1 - rh9 "c
state real csp_qi_c k misc 1 - rh9 "csp_qi_c" "Average over all cloudy grid points of qi" "kg/kg"
state real csp_qnc_c k misc 1 - rh9 "csp_qnc_c" "Average over all cloudy grid points of qnc" "cm-3"
state real csp_thv_c k misc 1 - rh9 "csp_thv_c" "Average over all cloudy grid points of thv" "K"
state real csp_w2_c k misc 1 - rh9 "csp_w2_c" "Average over all cloudy grid points of w variance" "(m/s)^2"
#! set B5
state real csp_aw_c k misc 1 - rh9 "csp_aw_c" "Cloud fraction * average over all cloudy grid points of w" "m/s"
state real csp_awthl_c k misc 1 - rh9 "csp_awthl_c" "Cloud fraction * average over all cloudy grid points of wthl" "K m/s"
......@@ -271,6 +270,7 @@ state real csp_qf_cc k misc 1 - rh9 "c
state real csp_qc_cc k misc 1 - rh9 "csp_qc_cc" "Average over all cloudcore grid points of qc" "kg/kg"
state real csp_qi_cc k misc 1 - rh9 "csp_qi_cc" "Average over all cloudcore grid points of qi" "kg/kg"
state real csp_thv_cc k misc 1 - rh9 "csp_thv_cc" "Average over all cloudcore grid points of thv" "K"
state real csp_w2_cc k misc 1 - rh9 "csp_w2_cc" "Average over all cloudcore grid points of w variance" "(m/s)^2"
#! set B7
state real csp_aw_cc k misc 1 - rh9 "csp_aw_cc" "Cloudcore fraction * average over all cloudcore grid points of w" "m/s"
state real csp_awthl_cc k misc 1 - rh9 "csp_awthl_cc" "Cloudcore fraction * average over all cloudcore grid points of wthl" "K m/s"
......@@ -305,17 +305,20 @@ state real csv_th ikj misc 1 - rh9 "csv
state real csv_u ikj misc 1 X rh9 "csv_u" "Time-averaged meridional wind speed" "m s^-1"
state real csv_v ikj misc 1 Y rh9 "csv_v" "Time-averaged zonal wind speed" "m s^-1"
state real csv_w ikj misc 1 Z rh9 "csv_w" "Time-averaged vertical wind speed" "m s^-1"
state real csv_w2 ikj misc 1 Z rh9 "csv_w2" "Time-averaged vertical wind speed variance" "m^2 s^-2"
state real csv_qv ikj misc 1 - rh9 "csv_qv" "Time-averaged water vapor mixing ratio" "kg/kg"
state real csv_qc ikj misc 1 - rh9 "csv_qc" "Time-averaged cloud droplet mixing ratio" "kg/kg"
state real csv_qr ikj misc 1 - rh9 "csv_qr" "Time-averaged cloud rain mixing ratio" "kg/kg"
state real csv_qr ikj misc 1 - rh9 "csv_qr" "Time-averaged rain droplet mixing ratio" "kg/kg"
state real csv_qi ikj misc 1 - rh9 "csv_qi" "Time-averaged cloud ice mixing ratio" "kg/kg"
state real csv_qs ikj misc 1 - rh9 "csv_qs" "Time-averaged cloud snow mixing ratio" "kg/kg"
state real csv_qg ikj misc 1 - rh9 "csv_qg" "Time-averaged cloud graupel mixing ratio" "kg/kg"
state real csv_lwc ikj misc 1 - rh9 "csv_lwc" "Time-averaged liquid water content" "kg/m^3"
state real csv_iwc ikj misc 1 - rh9 "csv_iwc" "Time-averaged ice water content" "kg/m^3"
state real csv_cldfrac ikj misc 1 - rh9 "csv_cldfrac" "Time-averaged cloud fraction" "fraction"
state real css_lwp ij misc 1 - rh9 "css_lwp" "Time-averaged liquid water path" "kg/m^3"
state real css_iwp ij misc 1 - rh9 "css_iwp" "Time-averaged ice water path" "kg/m^3"
state real csv_qs ikj misc 1 - rh9 "csv_qs" "Time-averaged snow mixing ratio" "kg/kg"
state real csv_qg ikj misc 1 - rh9 "csv_qg" "Time-averaged graupel mixing ratio" "kg/kg"
state real csv_lwc ikj misc 1 - rh9 "csv_lwc" "Time-averaged liquid water content (based on ql)" "kg/m^3"
state real csv_iwc ikj misc 1 - rh9 "csv_iwc" "Time-averaged ice water content (based on qf)" "kg/m^3"
state real csv_cldfrac ikj misc 1 - rh9 "csv_cldfrac" "Time-averaged cloud fraction" "(0-1)"
state real css_lwp ij misc 1 - rh9 "css_lwp" "Time-averaged liquid water path (based on ql)" "kg/m^3"
state real css_iwp ij misc 1 - rh9 "css_iwp" "Time-averaged ice water path (based on qf)" "kg/m^3"
state real css_cldtot ij misc 1 - rh9 "css_cldtot" "Time-averaged fractional cloud cover" "(0-1)"
state real css_cldlow ij misc 1 - rh9 "css_cldlow" "Time-averaged fractional low-cloud cover (<5 km)" "(0-1)"
# ! Namelist variables ********************************************************************************************
#<Table> <Type> <Sym> <How set> <Nentries> <Default> <IO> <DNAME> <DESCRIP> <UNITS>
......@@ -401,7 +404,7 @@ package cgilsrad_lwscheme ra_lw_physics==40 - state:lwupt
# ! Statistics option
#package nocrmstatopt crm_stat_opt==0 - -
package crmstatopt crm_stat_opt==1 - state:crm_stat_count,stat_count_nocl,stat_count_nocc,prev_stat_secs,cst_hour,cst_cldlow,cst_cldtot,cst_lwp,cst_iwp,cst_precw,cst_tke,cst_tsair,cst_ps,cst_prect,cst_sh,cst_lh,cst_fsntc,cst_fsnt,cst_flntc,cst_flnt,cst_fsnsc,cst_fsns,cst_flnsc,cst_flns,cst_swinc,cst_tsk,cst_ust,csp_z,csp_z8w,csp_dz8w,csp_u,csp_v,csp_w,csp_p,csp_th,csp_thv,csp_thl,csp_qv,csp_qc,csp_qi,csp_ql,csp_qf,csp_qt,csp_lwc,csp_iwc,csp_speqv,csp_a_cl,csp_rho,csp_u2,csp_v2,csp_u2v2,csp_w2,csp_w3,csp_wskew,csp_uw,csp_vw,csp_wth,csp_wthv,csp_wthl,csp_wqv,csp_wqc,csp_wqi,csp_wql,csp_wqf,csp_wqt,csp_uw_sgs,csp_vw_sgs,csp_wth_sgs,csp_wthv_sgs,csp_wthl_sgs,csp_wqv_sgs,csp_wqc_sgs,csp_wqi_sgs,csp_wql_sgs,csp_wqf_sgs,csp_wqt_sgs,csp_sedfqc,csp_sedfqr,csp_thdt_cond,csp_thdt_lw,csp_thdt_sw,csp_thdt_ls,csp_qvdt_pr,csp_qvdt_cond,csp_qvdt_ls,csp_qcdt_pr,csp_qcdt_sed,csp_qrdt_sed,csp_thdt_lshor,csp_qvdt_lshor,csp_thdt_lsver,csp_qvdt_lsver,csp_thdt_lsrlx,csp_qvdt_lsrlx,csp_udt_ls,csp_vdt_ls,csp_udt_lsver,csp_vdt_lsver,csp_udt_lsrlx,csp_vdt_lsrlx,csp_swupf,csp_swdnf,csp_lwupf,csp_lwdnf,csp_tke_rs,csp_tke_sh,csp_tke_bu,csp_tke_tr,csp_tke_di,csp_tke_sgs,csp_w_c,csp_thl_c,csp_qt_c,csp_qv_c,csp_ql_c,csp_qf_c,csp_qc_c,csp_qi_c,csp_qnc_c,csp_thv_c,csp_aw_c,csp_awthl_c,csp_awqt_c,csp_awqv_c,csp_awql_c,csp_awqf_c,csp_awqc_c,csp_awqi_c,csp_awthv_c,csp_a_cc,csp_w_cc,csp_thl_cc,csp_qt_cc,csp_qv_cc,csp_ql_cc,csp_qf_cc,csp_qc_cc,csp_qi_cc,csp_thv_cc,csp_aw_cc,csp_awthl_cc,csp_awqt_cc,csp_awqv_cc,csp_awql_cc,csp_awqf_cc,csp_awqc_cc,csp_awqi_cc,csp_awthv_cc,csp_sigc_thl,csp_sigc_qt,csp_sigc_ql,csp_sigc_qf,csp_sigc_qc,csp_sigc_qi,csp_sigc_thv,csp_th2,csp_thv2,csp_thl2,csp_qv2,w_dthdz,w_dqvdz,w_dudz,w_dvdz,thdt_lshor,qvdt_lshor,thdt_lsrlx,qvdt_lsrlx,udt_lsrlx,vdt_lsrlx,sedfqc,sedfqr,qvdt_pr,qvdt_cond,qcdt_pr,qcdt_sed,qrdt_sed,csp_smaxactmax,csp_rminactmin,csp_wmax,csp_wmin,csv_th,csv_u,csv_v,csv_w,csv_qv,csv_qc,csv_qr,csv_qi,csv_qs,csv_qg,csv_lwc,csv_iwc,csv_cldfrac,css_lwp,css_iwp,smaxact,rminact
package crmstatopt crm_stat_opt==1 - state:crm_stat_count,stat_count_nocl,stat_count_nocc,prev_stat_secs,cst_cldlow,cst_cldtot,cst_lwp,cst_iwp,cst_precw,cst_tke,cst_tsair,cst_ps,cst_prect,cst_sh,cst_lh,cst_fsntc,cst_fsnt,cst_flntc,cst_flnt,cst_fsnsc,cst_fsns,cst_flnsc,cst_flns,cst_swinc,cst_tsk,cst_ust,csp_z,csp_z8w,csp_dz8w,csp_u,csp_v,csp_w,csp_p,csp_th,csp_thv,csp_thl,csp_qv,csp_qc,csp_qi,csp_ql,csp_qf,csp_qt,csp_lwc,csp_iwc,csp_speqv,csp_a_cl,csp_rho,csp_u2,csp_v2,csp_u2v2,csp_w2,csp_w3,csp_wskew,csp_uw,csp_vw,csp_wth,csp_wthv,csp_wthl,csp_wqv,csp_wqc,csp_wqi,csp_wql,csp_wqf,csp_wqt,csp_uw_sgs,csp_vw_sgs,csp_wth_sgs,csp_wthv_sgs,csp_wthl_sgs,csp_wqv_sgs,csp_wqc_sgs,csp_wqi_sgs,csp_wql_sgs,csp_wqf_sgs,csp_wqt_sgs,csp_sedfqc,csp_sedfqr,csp_thdt_cond,csp_thdt_lw,csp_thdt_sw,csp_thdt_ls,csp_qvdt_pr,csp_qvdt_cond,csp_qvdt_ls,csp_qcdt_pr,csp_qcdt_sed,csp_qrdt_sed,csp_thdt_lshor,csp_qvdt_lshor,csp_thdt_lsver,csp_qvdt_lsver,csp_thdt_lsrlx,csp_qvdt_lsrlx,csp_udt_ls,csp_vdt_ls,csp_udt_lsver,csp_vdt_lsver,csp_udt_lsrlx,csp_vdt_lsrlx,csp_swupf,csp_swdnf,csp_lwupf,csp_lwdnf,csp_tke_rs,csp_tke_sh,csp_tke_bu,csp_tke_tr,csp_tke_di,csp_tke_sgs,csp_w_c,csp_w2_c,csp_thl_c,csp_qt_c,csp_qv_c,csp_ql_c,csp_qf_c,csp_qc_c,csp_qi_c,csp_qnc_c,csp_thv_c,csp_aw_c,csp_awthl_c,csp_awqt_c,csp_awqv_c,csp_awql_c,csp_awqf_c,csp_awqc_c,csp_awqi_c,csp_awthv_c,csp_a_cc,csp_w_cc,csp_w2_cc,csp_thl_cc,csp_qt_cc,csp_qv_cc,csp_ql_cc,csp_qf_cc,csp_qc_cc,csp_qi_cc,csp_thv_cc,csp_aw_cc,csp_awthl_cc,csp_awqt_cc,csp_awqv_cc,csp_awql_cc,csp_awqf_cc,csp_awqc_cc,csp_awqi_cc,csp_awthv_cc,csp_sigc_thl,csp_sigc_qt,csp_sigc_ql,csp_sigc_qf,csp_sigc_qc,csp_sigc_qi,csp_sigc_thv,csp_th2,csp_thv2,csp_thl2,csp_qv2,w_dthdz,w_dqvdz,w_dudz,w_dvdz,thdt_lshor,qvdt_lshor,thdt_lsrlx,qvdt_lsrlx,udt_lsrlx,vdt_lsrlx,sedfqc,sedfqr,qvdt_pr,qvdt_cond,qcdt_pr,qcdt_sed,qrdt_sed,csp_smaxactmax,csp_rminactmin,csp_wmax,csp_wmin,csv_th,csv_u,csv_v,csv_w,csv_w2,csv_qv,csv_qc,csv_qr,csv_qi,csv_qs,csv_qg,csv_lwc,csv_iwc,csv_cldfrac,css_lwp,css_iwp,css_cldtot,css_cldlow,smaxact,rminact
##! aerosol input
package aerosolopt crm_morr_act_opt==2 - state:z_aer,z_aer_tend,rm_aer1,rm_aer1_tend,sig_aer1,sig_aer1_tend,na_aer1,na_aer1_tend,na_aer1_grd,rm_aer2,rm_aer2_tend,sig_aer2,sig_aer2_tend,na_aer2,na_aer2_tend,na_aer2_grd,rm_aer3,rm_aer3_tend,sig_aer3,sig_aer3_tend,na_aer3,na_aer3_tend,na_aer3_grd,rm_aer4,rm_aer4_tend,sig_aer4,sig_aer4_tend,na_aer4,na_aer4_tend,na_aer4_grd,hygro_aer1,hygro_aer1_tend,hygro_aer2,hygro_aer2_tend,hygro_aer3,hygro_aer3_tend,hygro_aer4,hygro_aer4_tend
......
......@@ -90,7 +90,7 @@ CONTAINS
! Local data
INTEGER, PARAMETER :: nl_max = 3000
INTEGER, PARAMETER :: nl_max = 30000
REAL, DIMENSION(nl_max) :: zk, p_in, theta, rho, u, v, qv, pd_in
INTEGER :: nl_in
......@@ -1008,7 +1008,7 @@ CONTAINS
logical dry
integer n
parameter(n=3000)
parameter(n=30000)
logical debug
parameter( debug = .true.)
......
......@@ -4685,17 +4685,19 @@ BENCH_END(bc_2d_tim)
,csp_tke_di=grid%csp_tke_di, csp_tke_sgs=grid%csp_tke_sgs &
,csp_swupf=grid%csp_swupf, csp_swdnf=grid%csp_swdnf &
,csp_lwupf=grid%csp_lwupf, csp_lwdnf=grid%csp_lwdnf &
,csp_w_c=grid%csp_w_c, csp_thl_c=grid%csp_thl_c &
,csp_w_c=grid%csp_w_c, csp_w2_c=grid%csp_w2_c &
,csp_thl_c=grid%csp_thl_c &
,csp_qt_c=grid%csp_qt_c, csp_qv_c=grid%csp_qv_c &
,csp_ql_c=grid%csp_ql_c, csp_qf_c=grid%csp_qf_c &
,csp_qc_c=grid%csp_qc_c, csp_qi_c=grid%csp_qi_c &
,csp_qnc_c=grid%csp_qnc_c &
,csp_thv_c=grid%csp_thv_c, csp_aw_c=grid%csp_aw_c &
,csp_thv_c=grid%csp_thv_c,csp_aw_c=grid%csp_aw_c &
,csp_awthl_c=grid%csp_awthl_c, csp_awqt_c=grid%csp_awqt_c &
,csp_awqv_c=grid%csp_awqv_c, csp_awql_c=grid%csp_awql_c &
,csp_awqf_c=grid%csp_awqf_c, csp_awqc_c=grid%csp_awqc_c &
,csp_awqi_c=grid%csp_awqi_c, csp_awthv_c=grid%csp_awthv_c &
,csp_a_cc=grid%csp_a_cc, csp_w_cc=grid%csp_w_cc &
,csp_w2_cc=grid%csp_w2_cc &
,csp_thl_cc=grid%csp_thl_cc, csp_qt_cc=grid%csp_qt_cc &
,csp_qv_cc=grid%csp_qv_cc, csp_ql_cc=grid%csp_ql_cc &
,csp_qf_cc=grid%csp_qf_cc, csp_qc_cc=grid%csp_qc_cc &
......@@ -4713,11 +4715,13 @@ BENCH_END(bc_2d_tim)
,csp_wmax=grid%csp_wmax, csp_wmin=grid%csp_wmin &
,CSV_TH=grid%csv_th &
,CSV_U=grid%csv_u, CSV_V=grid%csv_v, CSV_W=grid%csv_w &
,CSV_W2=grid%csv_w2 &
,CSV_QV=grid%csv_qv, CSV_QC=grid%csv_qc, CSV_QR=grid%csv_qr &
,CSV_QI=grid%csv_qi, CSV_QS=grid%csv_qs, CSV_QG=grid%csv_qg &
,CSV_LWC=grid%csv_lwc, CSV_IWC=grid%csv_iwc &
,CSV_CLDFRAC=grid%csv_cldfrac &
,CSS_LWP=grid%css_lwp, CSS_IWP=grid%css_iwp &
,CSS_CLDTOT=grid%css_cldtot, CSS_CLDLOW=grid%css_cldlow &
! Dimension arguments
,IDS=ids,IDE=ide, JDS=jds,JDE=jde, KDS=kds,KDE=kde &
,IMS=ims,IME=ime, JMS=jms,JME=jme, KMS=kms,KME=kme &
......
This diff is collapsed.
......@@ -74,7 +74,8 @@
!.. scheme. In 2-moment cloud water, Nt_c represents a maximum of
!.. droplet concentration and nu_c is also variable depending on local
!.. droplet number concentration.
REAL, PARAMETER, PRIVATE:: Nt_c = 100.E6
! REAL, PARAMETER, PRIVATE:: Nt_c = 100.E6
REAL, PARAMETER, PRIVATE:: Nt_c = 400.E6 ! crm. mean value from RACORO
REAL, PARAMETER, PRIVATE:: Nt_c_max = 1999.E6
!..Declaration of constants for assumed CCN/IN aerosols when none in
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment