|
| subroutine, public | restini (fnamein, iim, jjm, lon, lat, llm, lev, fnameout, itau, date0, dt, fid, owrite_time_in, domain_id) |
| |
| subroutine, public | ioconf_setatt (attname, value) |
| |
| subroutine, public | ioget_vdim (fid, vname_q, varnbdim_max, varnbdim, vardims) |
| |
| subroutine, public | ioget_vname (fid, nbvar, varnames) |
| |
| subroutine, public | ioconf_expval (new_exp_val) |
| |
| subroutine, public | ioget_expval (get_exp_val) |
| |
| subroutine, public | restclo (fid) |
| |
|
| subroutine | restopenin (fid, fname, l_rw, iim, jjm, lon, lat, llm, lev, ncfid) |
| |
| subroutine | restsett (timestep, date0, itau, owrite_time_in) |
| |
| subroutine | restopenout (fid, fname, iim, jjm, lon, lat, llm, lev, timestep, date, ncfid, domain_id) |
| |
| subroutine | restget_opp_r1d (fid, vname_q, iim, jjm, llm, itau, def_beha, var, MY_OPERATOR, nbindex, ijndex) |
| |
| subroutine | restget_opp_r2d (fid, vname_q, iim, jjm, llm, itau, def_beha, var, MY_OPERATOR, nbindex, ijndex) |
| |
| subroutine | restget_r1d (fid, vname_q, iim, jjm, llm, itau, def_beha, var) |
| |
| subroutine | restget_r2d (fid, vname_q, iim, jjm, llm, itau, def_beha, var) |
| |
| subroutine | restget_r3d (fid, vname_q, iim, jjm, llm, itau, def_beha, var) |
| |
| subroutine | restget_real (fid, vname_q, iim, jjm, llm, itau, def_beha, var) |
| |
| subroutine | restput_opp_r1d (fid, vname_q, iim, jjm, llm, itau, var, MY_OPERATOR, nbindex, ijndex) |
| |
| subroutine | restput_opp_r2d (fid, vname_q, iim, jjm, llm, itau, var, MY_OPERATOR, nbindex, ijndex) |
| |
| subroutine | restput_r1d (fid, vname_q, iim, jjm, llm, itau, var) |
| |
| subroutine | restput_r2d (fid, vname_q, iim, jjm, llm, itau, var) |
| |
| subroutine | restput_r3d (fid, vname_q, iim, jjm, llm, itau, var) |
| |
| subroutine | restput_real (fid, vname_q, iim, jjm, llm, itau, var) |
| |
| subroutine | restdefv (fid, varname, iim, jjm, llm, write_att) |
| |
| subroutine | rest_atim (l_msg, c_p) |
| |
| subroutine | rest_alloc (i_buff, i_qsz, l_msg, c_p) |
| |
|
| integer, parameter | max_var =500 |
| |
| integer, parameter | max_file =50 |
| |
| integer, parameter | max_dim =NF90_MAX_VAR_DIMS |
| |
| character(len=9), save | calend_str ='unknown' |
| |
| integer, save | nb_fi = 0 |
| |
integer, dimension(max_file,
2), save | netcdf_id = -1 |
| |
| integer, dimension(max_file), save | nbvar_in |
| |
| integer, dimension(max_file), save | nbvar_out |
| |
| integer, dimension(max_file), save | tdimid_in |
| |
| integer, dimension(max_file), save | tdimid_out |
| |
| integer, dimension(max_file), save | nbdim_in |
| |
| integer, dimension(max_file), save | nbvar_read |
| |
integer, dimension(max_file,
max_var), save | vartyp_in |
| |
| real, dimension(max_file), save | deltat |
| |
| real, dimension(max_file), save | timeorig |
| |
| integer, dimension(max_file), save | tstp_out |
| |
| integer, dimension(max_file), save | itau_out |
| |
integer, dimension(max_file,
max_dim, 2), save | xax_infs |
| |
integer, dimension(max_file,
max_dim, 2), save | yax_infs |
| |
integer, dimension(max_file,
max_dim, 2), save | zax_infs |
| |
| integer, dimension(max_file), save | xax_nb =0 |
| |
| integer, dimension(max_file), save | yax_nb =0 |
| |
| integer, dimension(max_file), save | zax_nb =0 |
| |
| integer, dimension(max_file), save | tind_varid_in |
| |
| integer, dimension(max_file), save | tax_varid_in |
| |
| integer, dimension(max_file), save | tind_varid_out |
| |
| integer, dimension(max_file), save | tax_varid_out |
| |
| integer, dimension(max_file), save | tax_size_in =1 |
| |
integer, dimension(:,:),
allocatable, save | t_index |
| |
real, dimension(:,:),
allocatable, save | t_julian |
| |
character(len=20), dimension(max_file,
max_var), save | varname_in |
| |
character(len=20), dimension(max_file,
max_var), save | varname_out |
| |
integer, dimension(max_file,
max_var), save | varid_in |
| |
integer, dimension(max_file,
max_var), save | varid_out |
| |
integer, dimension(max_file,
max_var), save | varnbdim_in |
| |
integer, dimension(max_file,
max_var), save | varatt_in |
| |
integer, dimension(max_file,
max_var, max_dim), save | vardims_in |
| |
logical, dimension(max_file,
max_var), save | touched_in |
| |
logical, dimension(max_file,
max_var), save | touched_out |
| |
| character(len=120), save | indchfun = 'scatter, fill, gather, coll' |
| |
| real, parameter | missing_val =1.e20 |
| |
| real, save | val_exp = 999999. |
| |
| logical, save | lock_valexp = .FALSE. |
| |
| character(len=80), save | rest_units ='XXXXX' |
| |
| character(len=80), save | rest_lname ='XXXXX' |
| |
real, dimension(:),
allocatable, save | buff_tmp1 |
| |
real, dimension(:),
allocatable, save | buff_tmp2 |
| |