c- begin of comm_new.h ------------------------------------------------------ parameter (NTRAC_MAX = 100) parameter (NTRAC_SUR_MAX = 10) logical use_trac, mix_bc_s, mix_bc_b, use_wnsp, * save_mean, first_step, use_ice, use_trdiff, * use_modiff, use_diffiso, use_diff_cadv, use_dyice, * use_dyice_old, use_div_damp, use_budget, use_wndspd common /new_logic/ use_trac, mix_bc_s, mix_bc_b, use_wnsp, * save_mean, first_step, use_ice, use_trdiff, * use_modiff, use_diffiso, use_diff_cadv, use_dyice, * use_dyice_old, use_div_damp, use_budget, use_wndspd common /new_param/ itemp, isalt, imix, ntrac, ntrac_tot, idens, ntrac_sur, * TEMP_BOT, SALT_BOT, SITUD_BOT, POTND_BOT, kpp_type common /new_dims/ npt1, npt2, npt3, npt4, npten, nz_top, delta_mld c common /new_geom/ ixs_type,iys_type,ipole,pole_alp,pole_bet,pole_gam character*80 fbi, fbo, fbt, fbtau,fbtem,fbsal,fbsst,fbq,fbsss, * fbdep,fbcld,fbslr, fbmap,fbhcl, finp,fout, ftios,fcpu, * fbpsi, fbgrad, fbsp,fbriv,fbo0 common /new_files/ n_in,n_out, n_tau,n_tem,n_sal,n_sst,n_sss,n_psi, * n_slr, n_prp, n_q, n_dep, n_cld, n_map, n_hcl, * n_grad,n_riv,n_out0, * fbi, fbo, fbt, fbtau,fbtem,fbsal,fbsst,fbq,fbsss, * fbdep,fbcld,fbslr, fbmap,fbhcl,finp,fout,ftios,fcpu, * fbpsi, fbgrad, fbsp, n_sp,fbriv,fbo0 c common /new_io/ iout, iou, iov, iow, ioh, iot, ios, ioe, iotr, lev_err common /new_time/ dlt, DLT_MIX, steps_per_day, * iday_curr, enso_start, enso_scale, t_fac, grad_fac, * bt_fac, n_debug common /new_misc/ iglob,irest, initt,inits,initq,initep,initb,mbot_bc, * icl_h,icl_htop,icl_ts,icl_rlx,icl_psi,initg,nz_fix, * clm_coef,clm_no,clm_so,ksponge,krelax,clm_psi, * clm_coef_v,clm_coef_tr,clm_coef_trb,icl_fix, * initbt,itau_cos,isolrp,depth_fac,bc_coef,isteer * ,temp_coef, i_ridge_min, i_ridge_max, diff_coef_dd common /new_baro/ ibaro, dep_min, dep_max, adelt common /new_shap/nordu,nshapu,mshapu,dshapu, nordh,nshaph,mshaph,dshaph * , nordp,nshapp,mshapp,dshapp * , nordd,nshapd,mshapd,dshapd,dshapv common /dake_mix/ cm_mix,cn_mix, hmin_mix,hmax_mix, * ric1_mix,ric2_mix, iuse_gam, gam1_mix, gam2_mix, * mix_wtop, iwnd_mix common /new_forc/ idf_dp, idf_cld, idf_slr, cld_tscl, slr_tscl, * idf_tx, idf_ty, ltau,itau,ntau,p_ttau, tau_tscl, lpsi, lsss, * idf_sst,idf_sss, lsst,isst,nsst,p_tsst, sst_tscl, isss, p_tsss, * idf_prp, lprp,iprp,nprp,p_tprp, idf_q, lq, iq, nq, p_tq, * idf_t,idf_s,idf_hcl, lclm,iclm, ntclm,p_tclm, nzclm,p_zclm,clm_tscl, * idf_psi, ntpsi, ipsi, psi_tscl, * idf_grx, idf_gry, idf_sp * ,p_tcld,p_tslr,p_twsp,p_tuwd,p_tah,p_tat * ,icld,islr,iwsp,iuwd,iah,iat * ,lcld,lslr,lwsp,luwd,lah,lat * ,ncld,nslr,nwsp,nuwd,nah,nat,nsss dimension ttau(1), tsst(1), tprp(1), tclm(1), zclm(1),tpsi(1),tsss(1) dimension tcld(1), tslr(1), twsp(1), tuwd(1), tah(1), tat(1) pointer (p_ttau,ttau), (p_tsst,tsst), (p_tprp,tprp), (p_tsss,tsss) * ,(p_tclm,tclm), (p_zclm,zclm), (p_tpsi,tpsi) * ,(p_tcld,tcld), (p_tslr,tslr), (p_twsp,twsp) * ,(p_tuwd,tuwd), (p_tah,tah), (p_tat,tat) common /new_forcgr/ idatgr, mpack,mseg, mxp,myp, msx,msy common /new_hfxevp/ QCON, rlx_time, solr_gamma, TATM, SATM * ,trans_coef_sst,trans_coef_sss,coef_precip dimension hsave(1) pointer (p_hsave, hsave) common /new_energy/ p_hsave,ekf1,epf1,hcf1,wcf1,vlf1 character*80 fwsp, fuwd, fvwd, fah, fat, fprp common /pbl_files/ n_wsp, n_uwd, n_vwd, n_ah, n_at, n_prec, * idf_wsp, idf_uwd, idf_vwd, idf_ah, idf_at, idf_prec, * fwsp, fuwd, fvwd, fah, fat, fprp common /new_ice/ n_cice, n_hice, n_thice, i_cice, i_hice, i_thice character*80 ftrnm_def(NTRAC_MAX), ftrsnm_def(NTRAC_SUR_MAX) character*80 fbtr(NTRAC_MAX), ftrnm(NTRAC_MAX) character*80 fbtrs(NTRAC_SUR_MAX), ftrsnm(NTRAC_SUR_MAX) integer name_tr(NTRAC_MAX),n_tr(NTRAC_MAX) integer name_trs(NTRAC_SUR_MAX),n_trs(NTRAC_SUR_MAX) integer idf_tr(NTRAC_MAX), idf_trclim(NTRAC_MAX),inittr(NTRAC_MAX) real tr_in(NTRAC_MAX) common /trac_data/ fbtr, ftrnm, name_tr, n_tr, idf_tr, idf_trclim, * inittr, tr_in, if_tr_adv,fbtrs,ftrsnm,name_trs parameter (max_river=200) logical use_river dimension x_river(max_river),y_river(max_river),z_river(max_river) common /rivers/ n_river, coef_river, use_river, t_river(max_river,12), * i_river(max_river), dmin_river, v_river(max_river,-5:5), * k_river(max_river), * kmin_river(max_river), kmax_river(max_river) common /salt_budget/ iep_key, salt_fixed, budget_sp,budget_ri,v_sponge, * budget_eb, budget_pr, budget_re, bud, coef_bud, tscl_bud, tscl_a character*80 f_ep common /ep_files/ n_ep, f_ep, inoa_out parameter (IEP_OUT = 81) parameter (INAO_OUT = 84) c- end of comm_new.h ----------------------------------------------------