logical use_nao
       common /nao_para/ inao, use_nao, tnao, freq_nao

       character*80 fbtau_a
       common /nao_io/ n_tnao,fbtau_a,idf_txa,idf_tya

       real taux_anom(1), tauy_anom(1)
       real wnsp_anom(1), uwnd_anom(1), vwnd_anom(1)
       real ahum_anom(1), atem_anom(1), prp_anom(1)
       pointer (p_taux_anom, taux_anom), (p_tauy_anom, tauy_anom),
     *   (p_wnsp_anom, wnsp_anom), (p_uwnd_anom, uwnd_anom), 
     *   (p_vwnd_anom, vwnd_anom), (p_prp_anom, prp_anom), 
     *   (p_ahum_anom, ahum_anom), (p_atem_anom, atem_anom)
       common /nao_data/ p_taux_anom, p_tauy_anom, p_prp_anom,
     *  p_wnsp_anom, p_uwnd_anom, p_vwnd_anom, p_ahum_anom, p_atem_anom
 
       character*80  fwspa, fuwda, fvwda, faha, fata, fbnao, f_naok, fprpa
       common /pbl_anom_files/ n_wspa, n_uwda, n_vwda, n_aha, n_ata, nnao,
     *            idf_wspa, idf_uwda, idf_vwda, idf_aha, idf_ata, 
     *            fwspa, fuwda, fvwda, faha, fata, fbnao, f_naok, idf_prpa,
     *            fprpa, n_prpa

       parameter (max_nao=24000)
       dimension t_nao(max_nao), v_nao(max_nao)
       common /nao/ n_nao, t_nao, i_nao, v_nao, tscl_anom, n_naok, inao_key