Public Member Functions | |
| subroutine | prismdrv_init (id_err) |
| subroutine | prismdrv_init_appl (id_err) |
| subroutine | prismdrv_def_mpi_comm (id_err) |
| subroutine | prismdrv_finalize (id_err) |
| subroutine | prismdrv_set_scc_info (id_err) |
| subroutine | prismdrv_spawn_child (exec, args, n_args, application_number, n_hosts, hostnames, npes, intracomm, intercomm, ierror) |
| subroutine | prismdrv_set_smioc_info (id_err) |
| subroutine | prismdrv_init_smioc_struct (id_err) |
| subroutine | prismdrv_finalize_smioc_struct (id_err) |
| subroutine | prismdrv_get_udef_transients (id_err) |
| subroutine | prismtrs_main (id_err) |
| subroutine | prismtrs_bcast2trs (id_err) |
| subroutine | prismtrs_conserv2d_weight (id_epiosrc_size, id_epiotgt_size, id_src_nbr_corner, id_tgt_nbr_corner, id_src_lonlatz_size, id_index_size1, dda_src_lat, dda_src_lon, dda_src_z, dda_tgt_lat, dda_tgt_lon, dda_tgt_z, ida_nbsrccells_pertgtpt, ida_index_array, ida_srcepio_add, id_epio_id, id_interp_id, id_idim, id_num_wts, id_err) |
| subroutine | prismtrs_remap_conserv (grid1_size, grid2_size, grid1_corners, grid2_corners, id_src_lonlatz_size, id_index_size1, grid1_corner_lat, grid1_corner_lon, grid2_corner_lat, grid2_corner_lon, ida_nbsrccells_pertgtpt, ida_index_array, ida_srcepio_add, id_epio_id, id_interp_id, id_idim, num_wts, id_err) |
| subroutine | prismtrs_deallocate (id_err) |
| subroutine | prismtrs_resize_remap_vars (increment, id_epio_id, num_wts) |
| subroutine | prismtrs_intersection (location, intrsct_lat, intrsct_lon, lcoinc, beglat, beglon, endlat, endlon, begseg, lbegin, lrevers, num_srch_cells, id_nbcorners, srch_corner_lat, srch_corner_lon, srch_add) |
| subroutine | prismtrs_line_integral (lcl_weights, in_phi1, in_phi2, theta1, theta2, grid1_lon, grid2_lon, num_wts) |
| subroutine | prismtrs_loop (id_err) |
| subroutine | prismtrs_pole_intersection (location, intrsct_lat, intrsct_lon, lcoinc, lthresh, beglat, beglon, endlat, endlon, begseg, lrevers, num_srch_cells, id_nbcorners, srch_corner_lat, srch_corner_lon, srch_add) |
| subroutine | prismtrs_set_src_epio_dble (ida_loop, id_err) |
| subroutine | prismtrs_set_src_epio_real (ida_loop, id_err) |
| subroutine | prismtrs_set_tgt_epio_dble (ida_loop, id_err) |
| subroutine | prismtrs_set_tgt_epio_real (ida_loop, id_err) |
| subroutine | prismtrs_set_epio_trans (id_process_global_rank, id_err) |
| subroutine | prismtrs_store_link_cnsrv (add1, add2, lcl_weights, id_action, id_epio_id, num_wts) |
| subroutine | prismtrs_get_trans_rank (id_trans_rank, id_err) |
| subroutine | prismtrs_get_epio_handle (id_epio_id, id_err) |
| subroutine | prismtrs_set_triple_links (id_transient_out_id, id_transient_in_id, id_epio_id, id_err) |
| subroutine | prismtrs_set_neighbors3d (id_process_global_rank, id_epio_id, id_epio_tgt_size, id_nb_neighbors, id_source_size, id_source_grid_type, id_err) |
| subroutine | prismtrs_set_neighbors2d1d (id_process_global_rank, id_epio_id, id_epio_field_size, id_nb_neighbors, id_err) |
| subroutine | prismtrs_mind_dble (id_process_global_rank, id_transient_out_id, id_epio_id, il_trans_out_size, nbr_fields, id_err) |
| subroutine | prismtrs_sort_add (add1, add2, weights, num_links, num_wts) |
| subroutine | prismtrs_mind_real (id_process_global_rank, id_transient_out_id, id_epio_id, il_trans_out_size, nbr_fields, id_err) |
| subroutine | prismtrs_mind_int (id_process_global_rank, id_transient_out_id, id_epio_id, il_trans_out_size, nbr_fields, id_err) |
| subroutine | prismtrs_interp (id_exchange_id, id_epio_id, id_trans_out_size, dda_trans_out, id_trans_in_size, dda_trans_in, nbr_fields, id_err) |
| subroutine | prismtrs_apply_weights (il_src_size, dda_trans_out, il_tgt_size, dda_trans_in, ida_mask, id_nb_neighbors, ida_neighbors, dda_weights, nbr_fields, id_err) |
| subroutine | prismtrs_apply_weights_2dcons (il_src_size, dda_trans_out, il_tgt_size, dda_trans_in, ida_mask, id_nb_links, ida_grid1_add, ida_grid2_add, id_num_wts, dda_wts_map1, nbr_fields, id_err) |
| subroutine | prismtrs_apply_grads (il_src_size, dda_trans_out, ida_src_mask, il_tgt_size, dda_trans_in, ida_tgt_mask, id_nb_neighbors, ida_neighbors, dda_weights, nbr_fields, id_err) |
| subroutine | prismtrs_target_real (id_process_global_rank, id_transient_in_id, id_epio_id, nbr_fields, id_err) |
| subroutine | prismtrs_target_dble (id_process_global_rank, id_transient_in_id, id_epio_id, nbr_fields, id_err) |
| subroutine | prismtrs_target_int (id_process_global_rank, id_transient_in_id, id_epio_id, nbr_fields, id_err) |
| subroutine | prismtrs_distwght_weight_2d (id_src_size, dda_src_lat, dda_src_lon, ida_src_mask, id_tgt_size, dda_tgt_lat, dda_tgt_lon, ida_tgt_mask, id_nb_neighbors, ida_neighbor_index, dda_weights, id_err) |
| subroutine | prismtrs_gauswght_weight_2d (id_src_size, dda_src_lat, dda_src_lon, ida_src_mask, id_tgt_size, dda_tgt_lat, dda_tgt_lon, ida_tgt_mask, dd_gaus_var, id_nb_neighbors, ida_neighbor_index, dda_weights, id_err) |
| subroutine | prismtrs_bilinear_weight_2d (id_src_size, dda_src_lat, dda_src_lon, id_tgt_size, dda_tgt_lat, dda_tgt_lon, ida_tgt_mask, ida_neighbor_index, dda_weights, id_err) |
| subroutine | prismtrs_bicubic_weight_2d (id_src_size, dda_src_lat, dda_src_lon, id_tgt_size, dda_tgt_lat, dda_tgt_lon, ida_tgt_mask, ida_neighbor_index, ida_same_lat, dda_weights, id_err) |
| subroutine | prismtrs_bicubic_grad_2d (id_src_size, dda_src_lat, dda_src_lon, ida_src_mask, id_tgt_size, dda_tgt_lat, dda_tgt_lon, ida_tgt_mask, ida_neighbor_index, dda_weights, id_err) |
| subroutine | prismtrs_linear_weight_for_2d1d (id_src_size, dda_src_z, id_tgt_size, dda_tgt_z, ida_tgt_mask, id_nb_neighbors, ida_neighbor_index, dda_weights, id_err) |
| subroutine | prismtrs_distwght_weight_2d1d (id_src_size, dda_src_lat, dda_src_lon, dda_src_z, ida_src_mask, id_tgt_size, dda_tgt_lat, dda_tgt_lon, dda_tgt_z, ida_tgt_mask, id_nb_neighbors, ida_neighbor_index, dda_weights, id_err) |
| subroutine | prismtrs_bilinear_weight_2d1d (id_src_size, dda_src_lat, dda_src_lon, dda_src_z, id_tgt_size, dda_tgt_lat, dda_tgt_lon, dda_tgt_z, ida_neighbor_index, dda_weights, id_err) |
| subroutine | prismtrs_distwght_weight_3d (id_src_size, dda_src_lat, dda_src_lon, dda_src_z, ida_src_mask, id_tgt_size, dda_tgt_lat, dda_tgt_lon, dda_tgt_z, ida_tgt_mask, id_nb_neighbors, ida_neighbor_index, dda_weights, id_err) |
| subroutine | prismtrs_gauswght_weight_3d (id_src_size, dda_src_lat, dda_src_lon, dda_src_z, ida_src_mask, id_tgt_size, dda_tgt_lat, dda_tgt_lon, dda_tgt_z, ida_tgt_mask, dd_gaus_var, id_nb_neighbors, ida_neighbor_index, dda_weights, id_err) |
| subroutine | prismtrs_trilinear_weight (id_src_size, dda_src_lat, dda_src_lon, dda_src_z, id_tgt_size, dda_tgt_lat, dda_tgt_lon, dda_tgt_z, ida_tgt_mask, ida_neighbor_index, dda_weights, id_err) |
| subroutine | prismdrv_get_smioc_file_name (id_comp_id, cda_file_name, id_file_name_len, id_err) |
| subroutine | prismtrs_enqueue_in_field_dble (field, field_size, exchange_id, ierror) |
| subroutine | prismtrs_enqueue_in_field_real (field, field_size, exchange_id, ierror) |
| subroutine | prismtrs_enqueue_in_field_int (field, field_size, exchange_id, ierror) |
| subroutine | prismtrs_dequeue_in_field_dble (field_size, exchange_id, ierror) |
| subroutine | prismtrs_dequeue_in_field_real (field_size, exchange_id, ierror) |
| subroutine | prismtrs_dequeue_in_field_int (field_size, exchange_id, ierror) |
| subroutine | prismtrs_enqueue_glob_sum_dble (global_sum, nbr_fields, exchange_id, ierror) |
| subroutine | prismtrs_enqueue_glob_sum_int (global_sum, nbr_fields, exchange_id, ierror) |
| subroutine | prismtrs_dequeue_glob_sum_dble (nbr_fields, exchange_id, ierror) |
| subroutine | prismtrs_dequeue_glob_sum_int (nbr_fields, exchange_id, ierror) |
| subroutine | prismdrv_init_drv_exchange (exchange_id) |
Definition at line 571 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismdrv_def_mpi_comm | ( | Integer,intent(out) | id_err | ) |
Definition at line 581 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismdrv_finalize | ( | Integer,intent(out) | id_err | ) |
Definition at line 585 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismdrv_finalize_smioc_struct | ( | Integer,intent(out) | id_err | ) |
Definition at line 620 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismdrv_get_smioc_file_name | ( | INTEGER,intent(in) | id_comp_id, | |
| CHARACTER(LEN=256),intent(out) | cda_file_name, | |||
| INTEGER,intent(out) | id_file_name_len, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 1369 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismdrv_get_udef_transients | ( | Integer,intent(out) | id_err | ) |
Definition at line 624 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismdrv_init | ( | Integer,intent(out) | id_err | ) |
Definition at line 573 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismdrv_init_appl | ( | Integer,intent(out) | id_err | ) |
Definition at line 577 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismdrv_init_drv_exchange | ( | integer,intent(in) | exchange_id | ) |
Definition at line 1446 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismdrv_init_smioc_struct | ( | Integer,intent(out) | id_err | ) |
Definition at line 616 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismdrv_set_scc_info | ( | Integer,intent(out) | id_err | ) |
Definition at line 591 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismdrv_set_smioc_info | ( | Integer,intent(out) | id_err | ) |
Definition at line 612 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismdrv_spawn_child | ( | CHARACTER(len=*),intent(in) | exec, | |
| CHARACTER(len=*),dimension (n_args),intent(in) | args, | |||
| INTEGER,intent(in) | n_args, | |||
| INTEGER,intent(in) | application_number, | |||
| INTEGER,intent(in) | n_hosts, | |||
| CHARACTER(len=*),dimension (n_hosts),intent(in) | hostnames, | |||
| INTEGER,dimension (n_hosts),intent(in) | npes, | |||
| INTEGER,intent(in) | intracomm, | |||
| INTEGER,intent(out) | intercomm, | |||
| INTEGER,intent(out) | ierror | |||
| ) |
Definition at line 596 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_apply_grads | ( | INTEGER,intent(in) | il_src_size, | |
| DOUBLE PRECISION,dimension(il_src_size*nbr_fields),intent(in) | dda_trans_out, | |||
| INTEGER,dimension(il_src_size),intent(in) | ida_src_mask, | |||
| INTEGER,intent(in) | il_tgt_size, | |||
| DOUBLE PRECISION,dimension(il_tgt_size*nbr_fields),intent(out) | dda_trans_in, | |||
| INTEGER,dimension(il_tgt_size),intent(in) | ida_tgt_mask, | |||
| INTEGER,intent(in) | id_nb_neighbors, | |||
| INTEGER,dimension(il_tgt_size,id_nb_neighbors),intent(in) | ida_neighbors, | |||
| DOUBLE PRECISION,dimension(il_tgt_size,id_nb_neighbors),intent(in) | dda_weights, | |||
| INTEGER,intent(in) | nbr_fields, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 1010 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_apply_weights | ( | INTEGER,intent(in) | il_src_size, | |
| DOUBLE PRECISION,dimension(il_src_size*nbr_fields),intent(in) | dda_trans_out, | |||
| INTEGER,intent(in) | il_tgt_size, | |||
| DOUBLE PRECISION,dimension(il_tgt_size*nbr_fields),intent(out) | dda_trans_in, | |||
| INTEGER,dimension(il_tgt_size),intent(in) | ida_mask, | |||
| INTEGER,intent(in) | id_nb_neighbors, | |||
| INTEGER,dimension(il_tgt_size,id_nb_neighbors),intent(in) | ida_neighbors, | |||
| DOUBLE PRECISION,dimension(il_tgt_size,id_nb_neighbors),intent(in) | dda_weights, | |||
| INTEGER,intent(in) | nbr_fields, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 956 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_apply_weights_2dcons | ( | INTEGER,intent(in) | il_src_size, | |
| DOUBLE PRECISION,dimension(il_src_size*nbr_fields),intent(in) | dda_trans_out, | |||
| INTEGER,intent(in) | il_tgt_size, | |||
| DOUBLE PRECISION,dimension(il_tgt_size*nbr_fields),intent(out) | dda_trans_in, | |||
| INTEGER,dimension(il_tgt_size),intent(in) | ida_mask, | |||
| INTEGER,intent(in) | id_nb_links, | |||
| INTEGER,dimension(id_nb_links),intent(in) | ida_grid1_add, | |||
| INTEGER,dimension(id_nb_links),intent(in) | ida_grid2_add, | |||
| INTEGER,intent(in) | id_num_wts, | |||
| DOUBLE PRECISION,dimension(id_num_wts,id_nb_links),intent(in) | dda_wts_map1, | |||
| INTEGER,intent(in) | nbr_fields, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 981 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_bcast2trs | ( | Integer,intent(out) | id_err | ) |
Definition at line 637 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_bicubic_grad_2d | ( | INTEGER,intent(in) | id_src_size, | |
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lat, | |||
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lon, | |||
| INTEGER,dimension(id_src_size),intent(in) | ida_src_mask, | |||
| INTEGER,intent(in) | id_tgt_size, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lat, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lon, | |||
| INTEGER,dimension(id_tgt_size),intent(in) | ida_tgt_mask, | |||
| INTEGER,dimension(id_tgt_size,16),intent(in) | ida_neighbor_index, | |||
| DOUBLE PRECISION,dimension(id_tgt_size,16),intent(out) | dda_weights, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 1177 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_bicubic_weight_2d | ( | INTEGER,intent(in) | id_src_size, | |
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lat, | |||
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lon, | |||
| INTEGER,intent(in) | id_tgt_size, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lat, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lon, | |||
| INTEGER,dimension(id_tgt_size),intent(in) | ida_tgt_mask, | |||
| INTEGER,dimension(id_tgt_size,16),intent(in) | ida_neighbor_index, | |||
| INTEGER,dimension(id_tgt_size),intent(in) | ida_same_lat, | |||
| DOUBLE PRECISION,dimension(id_tgt_size,16),intent(out) | dda_weights, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 1152 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_bilinear_weight_2d | ( | INTEGER,intent(in) | id_src_size, | |
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lat, | |||
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lon, | |||
| INTEGER,intent(in) | id_tgt_size, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lat, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lon, | |||
| INTEGER,dimension(id_tgt_size),intent(in) | ida_tgt_mask, | |||
| INTEGER,dimension(id_tgt_size,4),intent(in) | ida_neighbor_index, | |||
| DOUBLE PRECISION,dimension(id_tgt_size,4),intent(out) | dda_weights, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 1129 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_bilinear_weight_2d1d | ( | INTEGER,intent(in) | id_src_size, | |
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lat, | |||
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lon, | |||
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_z, | |||
| INTEGER,intent(in) | id_tgt_size, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lat, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lon, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_z, | |||
| INTEGER,dimension(id_tgt_size,10),intent(inout) | ida_neighbor_index, | |||
| DOUBLE PRECISION,dimension(id_tgt_size,8),intent(out) | dda_weights, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 1254 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_conserv2d_weight | ( | INTEGER | id_epiosrc_size, | |
| INTEGER | id_epiotgt_size, | |||
| INTEGER | id_src_nbr_corner, | |||
| INTEGER | id_tgt_nbr_corner, | |||
| INTEGER | id_src_lonlatz_size, | |||
| INTEGER | id_index_size1, | |||
| DOUBLE PRECISION,dimension(id_src_lonlatz_size) | dda_src_lat, | |||
| DOUBLE PRECISION,dimension(id_src_lonlatz_size) | dda_src_lon, | |||
| DOUBLE PRECISION,dimension(id_src_lonlatz_size) | dda_src_z, | |||
| DOUBLE PRECISION,dimension(id_epiotgt_size,id_tgt_nbr_corner) | dda_tgt_lat, | |||
| DOUBLE PRECISION,dimension(id_epiotgt_size,id_tgt_nbr_corner) | dda_tgt_lon, | |||
| DOUBLE PRECISION,dimension(id_epiotgt_size,id_tgt_nbr_corner) | dda_tgt_z, | |||
| INTEGER,dimension(id_epiotgt_size) | ida_nbsrccells_pertgtpt, | |||
| INTEGER,dimension(id_index_size1,id_src_nbr_corner) | ida_index_array, | |||
| INTEGER,dimension(id_index_size1) | ida_srcepio_add, | |||
| INTEGER | id_epio_id, | |||
| INTEGER | id_interp_id, | |||
| INTEGER | id_idim, | |||
| INTEGER | id_num_wts, | |||
| INTEGER | id_err | |||
| ) |
Definition at line 642 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_deallocate | ( | Integer,intent(out) | id_err | ) |
Definition at line 714 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_dequeue_glob_sum_dble | ( | integer,intent(in) | nbr_fields, | |
| integer,intent(in) | exchange_id, | |||
| integer,intent(out) | ierror | |||
| ) |
Definition at line 1434 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_dequeue_glob_sum_int | ( | integer,intent(in) | nbr_fields, | |
| integer,intent(in) | exchange_id, | |||
| integer,intent(out) | ierror | |||
| ) |
Definition at line 1440 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_dequeue_in_field_dble | ( | integer,intent(in) | field_size, | |
| integer,intent(in) | exchange_id, | |||
| integer,intent(out) | ierror | |||
| ) |
Definition at line 1402 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_dequeue_in_field_int | ( | integer,intent(in) | field_size, | |
| integer,intent(in) | exchange_id, | |||
| integer,intent(out) | ierror | |||
| ) |
Definition at line 1414 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_dequeue_in_field_real | ( | integer,intent(in) | field_size, | |
| integer,intent(in) | exchange_id, | |||
| integer,intent(out) | ierror | |||
| ) |
Definition at line 1408 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_distwght_weight_2d | ( | INTEGER,intent(in) | id_src_size, | |
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lat, | |||
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lon, | |||
| INTEGER,dimension(id_src_size),intent(in) | ida_src_mask, | |||
| INTEGER,intent(in) | id_tgt_size, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lat, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lon, | |||
| INTEGER,dimension(id_tgt_size),intent(in) | ida_tgt_mask, | |||
| INTEGER,intent(in) | id_nb_neighbors, | |||
| INTEGER,dimension(id_tgt_size,id_nb_neighbors),intent(in) | ida_neighbor_index, | |||
| DOUBLE PRECISION,dimension(id_tgt_size,id_nb_neighbors),intent(out) | dda_weights, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 1075 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_distwght_weight_2d1d | ( | INTEGER,intent(in) | id_src_size, | |
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lat, | |||
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lon, | |||
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_z, | |||
| INTEGER,dimension(id_src_size),intent(in) | ida_src_mask, | |||
| INTEGER,intent(in) | id_tgt_size, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lat, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lon, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_z, | |||
| INTEGER,dimension(id_tgt_size),intent(in) | ida_tgt_mask, | |||
| INTEGER,intent(in) | id_nb_neighbors, | |||
| INTEGER,dimension(id_tgt_size,id_nb_neighbors),intent(inout) | ida_neighbor_index, | |||
| DOUBLE PRECISION,dimension(id_tgt_size,id_nb_neighbors),intent(out) | dda_weights, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 1224 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_distwght_weight_3d | ( | INTEGER,intent(in) | id_src_size, | |
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lat, | |||
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lon, | |||
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_z, | |||
| INTEGER,dimension(id_src_size),intent(in) | ida_src_mask, | |||
| INTEGER,intent(in) | id_tgt_size, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lat, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lon, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_z, | |||
| INTEGER,dimension(id_tgt_size),intent(in) | ida_tgt_mask, | |||
| INTEGER,intent(in) | id_nb_neighbors, | |||
| INTEGER,dimension(id_tgt_size,id_nb_neighbors),intent(in) | ida_neighbor_index, | |||
| DOUBLE PRECISION,dimension(id_tgt_size,id_nb_neighbors),intent(out) | dda_weights, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 1279 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_enqueue_glob_sum_dble | ( | global_sum | , | |
| integer,intent(in) | nbr_fields, | |||
| integer,intent(in) | exchange_id, | |||
| integer,intent(out) | ierror | |||
| ) |
Definition at line 1420 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_enqueue_glob_sum_int | ( | integer,dimension(nbr_fields),intent(in) | global_sum, | |
| integer,intent(in) | nbr_fields, | |||
| integer,intent(in) | exchange_id, | |||
| integer,intent(out) | ierror | |||
| ) |
Definition at line 1427 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_enqueue_in_field_dble | ( | double precision,dimension(field_size),intent(in) | field, | |
| integer,intent(in) | field_size, | |||
| integer,intent(in) | exchange_id, | |||
| integer,intent(out) | ierror | |||
| ) |
Definition at line 1381 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_enqueue_in_field_int | ( | integer,dimension(field_size),intent(in) | field, | |
| integer,intent(in) | field_size, | |||
| integer,intent(in) | exchange_id, | |||
| integer,intent(out) | ierror | |||
| ) |
Definition at line 1395 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_enqueue_in_field_real | ( | real,dimension(field_size),intent(in) | field, | |
| integer,intent(in) | field_size, | |||
| integer,intent(in) | exchange_id, | |||
| integer,intent(out) | ierror | |||
| ) |
Definition at line 1388 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_gauswght_weight_2d | ( | INTEGER,intent(in) | id_src_size, | |
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lat, | |||
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lon, | |||
| INTEGER,dimension(id_src_size),intent(in) | ida_src_mask, | |||
| INTEGER,intent(in) | id_tgt_size, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lat, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lon, | |||
| INTEGER,dimension(id_tgt_size),intent(in) | ida_tgt_mask, | |||
| DOUBLE PRECISION,intent(in) | dd_gaus_var, | |||
| INTEGER,intent(in) | id_nb_neighbors, | |||
| INTEGER,dimension(id_tgt_size,id_nb_neighbors),intent(inout) | ida_neighbor_index, | |||
| DOUBLE PRECISION,dimension(id_tgt_size,id_nb_neighbors),intent(out) | dda_weights, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 1101 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_gauswght_weight_3d | ( | INTEGER,intent(in) | id_src_size, | |
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lat, | |||
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lon, | |||
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_z, | |||
| INTEGER,dimension(id_src_size),intent(in) | ida_src_mask, | |||
| INTEGER,intent(in) | id_tgt_size, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lat, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lon, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_z, | |||
| INTEGER,dimension(id_tgt_size),intent(in) | ida_tgt_mask, | |||
| DOUBLE PRECISION,intent(in) | dd_gaus_var, | |||
| INTEGER,intent(in) | id_nb_neighbors, | |||
| INTEGER,dimension(id_tgt_size,id_nb_neighbors),intent(in) | ida_neighbor_index, | |||
| DOUBLE PRECISION,dimension(id_tgt_size,id_nb_neighbors),intent(out) | dda_weights, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 1309 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_get_epio_handle | ( | INTEGER,intent(out) | id_epio_id, | |
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 830 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_get_trans_rank | ( | INTEGER,intent(out) | id_trans_rank, | |
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 824 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_interp | ( | INTEGER,intent(in) | id_exchange_id, | |
| INTEGER,intent(in) | id_epio_id, | |||
| INTEGER,intent(in) | id_trans_out_size, | |||
| DOUBLE PRECISION,dimension(id_trans_out_size),intent(in) | dda_trans_out, | |||
| INTEGER,intent(in) | id_trans_in_size, | |||
| DOUBLE PRECISION,dimension(id_trans_in_size),intent(out) | dda_trans_in, | |||
| INTEGER,intent(in) | nbr_fields, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 936 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_intersection | ( | INTEGER,intent(out) | location, | |
| DOUBLE PRECISION,intent(out) | intrsct_lat, | |||
| DOUBLE PRECISION,intent(out) | intrsct_lon, | |||
| LOGICAL,intent(out) | lcoinc, | |||
| DOUBLE PRECISION,intent(in) | beglat, | |||
| DOUBLE PRECISION,intent(in) | beglon, | |||
| DOUBLE PRECISION,intent(in) | endlat, | |||
| DOUBLE PRECISION,intent(in) | endlon, | |||
| DOUBLE PRECISION,dimension(2),intent(inout) | begseg, | |||
| LOGICAL,intent(in) | lbegin, | |||
| LOGICAL,intent(in) | lrevers, | |||
| INTEGER,intent(in) | num_srch_cells, | |||
| INTEGER,intent(in) | id_nbcorners, | |||
| DOUBLE PRECISION,dimension(id_nbcorners, num_srch_cells),intent(in) | srch_corner_lat, | |||
| DOUBLE PRECISION,dimension(id_nbcorners, num_srch_cells),intent(in) | srch_corner_lon, | |||
| INTEGER,dimension(num_srch_cells),intent(in) | srch_add | |||
| ) |
Definition at line 726 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_line_integral | ( | DOUBLE PRECISION,dimension(2*num_wts),intent(out) | lcl_weights, | |
| DOUBLE PRECISION,intent(in) | in_phi1, | |||
| DOUBLE PRECISION,intent(in) | in_phi2, | |||
| DOUBLE PRECISION,intent(in) | theta1, | |||
| DOUBLE PRECISION,intent(in) | theta2, | |||
| DOUBLE PRECISION,intent(in) | grid1_lon, | |||
| DOUBLE PRECISION,intent(in) | grid2_lon, | |||
| INTEGER,intent(in) | num_wts | |||
| ) |
Definition at line 745 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_linear_weight_for_2d1d | ( | INTEGER,intent(in) | id_src_size, | |
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_z, | |||
| INTEGER,intent(in) | id_tgt_size, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_z, | |||
| INTEGER,dimension(id_tgt_size),intent(in) | ida_tgt_mask, | |||
| INTEGER,intent(in) | id_nb_neighbors, | |||
| INTEGER,dimension(id_tgt_size,id_nb_neighbors),intent(inout) | ida_neighbor_index, | |||
| DOUBLE PRECISION,dimension(id_tgt_size, id_nb_neighbors),intent(inout) | dda_weights, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 1202 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_loop | ( | Integer,intent(out) | id_err | ) |
Definition at line 756 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_main | ( | Integer,intent(out) | id_err | ) |
Definition at line 631 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_mind_dble | ( | INTEGER,intent(in) | id_process_global_rank, | |
| INTEGER,intent(in) | id_transient_out_id, | |||
| INTEGER,intent(in) | id_epio_id, | |||
| INTEGER,intent(in) | il_trans_out_size, | |||
| INTEGER,intent(in) | nbr_fields, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 880 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_mind_int | ( | INTEGER,intent(in) | id_process_global_rank, | |
| INTEGER,intent(in) | id_transient_out_id, | |||
| INTEGER,intent(in) | id_epio_id, | |||
| INTEGER,intent(in) | il_trans_out_size, | |||
| INTEGER,intent(in) | nbr_fields, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 920 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_mind_real | ( | INTEGER,intent(in) | id_process_global_rank, | |
| INTEGER,intent(in) | id_transient_out_id, | |||
| INTEGER,intent(in) | id_epio_id, | |||
| INTEGER,intent(in) | il_trans_out_size, | |||
| INTEGER,intent(in) | nbr_fields, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 904 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_pole_intersection | ( | INTEGER,intent(inout) | location, | |
| DOUBLE PRECISION,intent(out) | intrsct_lat, | |||
| DOUBLE PRECISION,intent(out) | intrsct_lon, | |||
| LOGICAL,intent(out) | lcoinc, | |||
| LOGICAL,intent(inout) | lthresh, | |||
| DOUBLE PRECISION,intent(in) | beglat, | |||
| DOUBLE PRECISION,intent(in) | beglon, | |||
| DOUBLE PRECISION,intent(in) | endlat, | |||
| DOUBLE PRECISION,intent(in) | endlon, | |||
| DOUBLE PRECISION,dimension(2),intent(inout) | begseg, | |||
| LOGICAL,intent(in) | lrevers, | |||
| INTEGER,intent(in) | num_srch_cells, | |||
| INTEGER,intent(in) | id_nbcorners, | |||
| DOUBLE PRECISION,dimension(id_nbcorners, num_srch_cells),intent(in) | srch_corner_lat, | |||
| DOUBLE PRECISION,dimension(id_nbcorners, num_srch_cells),intent(in) | srch_corner_lon, | |||
| INTEGER,dimension(num_srch_cells),intent(in) | srch_add | |||
| ) |
Definition at line 762 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_remap_conserv | ( | INTEGER | grid1_size, | |
| INTEGER | grid2_size, | |||
| INTEGER | grid1_corners, | |||
| INTEGER | grid2_corners, | |||
| INTEGER | id_src_lonlatz_size, | |||
| INTEGER | id_index_size1, | |||
| DOUBLE PRECISION,dimension (id_src_lonlatz_size) | grid1_corner_lat, | |||
| DOUBLE PRECISION,dimension (id_src_lonlatz_size) | grid1_corner_lon, | |||
| DOUBLE PRECISION,dimension (grid2_size, grid2_corners) | grid2_corner_lat, | |||
| DOUBLE PRECISION,dimension (grid2_size, grid2_corners) | grid2_corner_lon, | |||
| INTEGER,dimension(grid2_size) | ida_nbsrccells_pertgtpt, | |||
| INTEGER,dimension(id_index_size1,grid1_corners) | ida_index_array, | |||
| INTEGER,dimension(id_index_size1) | ida_srcepio_add, | |||
| INTEGER | id_epio_id, | |||
| INTEGER | id_interp_id, | |||
| INTEGER | id_idim, | |||
| INTEGER | num_wts, | |||
| INTEGER | id_err | |||
| ) |
Definition at line 679 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_resize_remap_vars | ( | INTEGER,intent(in) | increment, | |
| INTEGER,intent(in) | id_epio_id, | |||
| INTEGER,intent(in) | num_wts | |||
| ) |
Definition at line 720 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_set_epio_trans | ( | INTEGER,intent(in) | id_process_global_rank, | |
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 810 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_set_neighbors2d1d | ( | INTEGER,intent(in) | id_process_global_rank, | |
| INTEGER,intent(in) | id_epio_id, | |||
| INTEGER,intent(in) | id_epio_field_size, | |||
| INTEGER,intent(in) | id_nb_neighbors, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 866 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_set_neighbors3d | ( | INTEGER,intent(in) | id_process_global_rank, | |
| INTEGER,intent(in) | id_epio_id, | |||
| INTEGER,intent(in) | id_epio_tgt_size, | |||
| INTEGER,intent(in) | id_nb_neighbors, | |||
| INTEGER,intent(in) | id_source_size, | |||
| INTEGER,intent(in) | id_source_grid_type, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 848 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_set_src_epio_dble | ( | INTEGER,dimension(psmile_trans_header_length),intent(in) | ida_loop, | |
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 784 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_set_src_epio_real | ( | INTEGER,dimension(psmile_trans_header_length),intent(in) | ida_loop, | |
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 790 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_set_tgt_epio_dble | ( | INTEGER,dimension(psmile_trans_header_length),intent(in) | ida_loop, | |
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 796 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_set_tgt_epio_real | ( | INTEGER,dimension(psmile_trans_header_length),intent(in) | ida_loop, | |
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 802 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_set_triple_links | ( | INTEGER,intent(in) | id_transient_out_id, | |
| INTEGER,intent(in) | id_transient_in_id, | |||
| INTEGER,intent(in) | id_epio_id, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 836 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_sort_add | ( | INTEGER,dimension(num_links),intent(inout) | add1, | |
| INTEGER,dimension(num_links),intent(inout) | add2, | |||
| DOUBLE PRECISION,dimension(num_wts, num_links),intent(inout) | weights, | |||
| INTEGER,intent(in) | num_links, | |||
| INTEGER,intent(in) | num_wts | |||
| ) |
Definition at line 896 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_store_link_cnsrv | ( | INTEGER,intent(in) | add1, | |
| INTEGER,intent(in) | add2, | |||
| DOUBLE PRECISION,dimension(2*num_wts),intent(in) | lcl_weights, | |||
| INTEGER,intent(in) | id_action, | |||
| INTEGER,intent(in) | id_epio_id, | |||
| INTEGER,intent(in) | num_wts | |||
| ) |
Definition at line 817 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_target_dble | ( | INTEGER,intent(in) | id_process_global_rank, | |
| INTEGER,intent(in) | id_transient_in_id, | |||
| INTEGER,intent(in) | id_epio_id, | |||
| INTEGER,intent(in) | nbr_fields, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 1049 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_target_int | ( | INTEGER,intent(in) | id_process_global_rank, | |
| INTEGER,intent(in) | id_transient_in_id, | |||
| INTEGER,intent(in) | id_epio_id, | |||
| INTEGER,intent(in) | nbr_fields, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 1061 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_target_real | ( | INTEGER,intent(in) | id_process_global_rank, | |
| INTEGER,intent(in) | id_transient_in_id, | |||
| INTEGER,intent(in) | id_epio_id, | |||
| INTEGER,intent(in) | nbr_fields, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 1037 of file prismdrv.F90.
| subroutine PRISMDrv::interface::prismtrs_trilinear_weight | ( | INTEGER,intent(in) | id_src_size, | |
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lat, | |||
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_lon, | |||
| DOUBLE PRECISION,dimension(id_src_size) | dda_src_z, | |||
| INTEGER,intent(in) | id_tgt_size, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lat, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_lon, | |||
| DOUBLE PRECISION,dimension(id_tgt_size) | dda_tgt_z, | |||
| INTEGER,dimension(id_tgt_size),intent(in) | ida_tgt_mask, | |||
| INTEGER,dimension(id_tgt_size,8),intent(in) | ida_neighbor_index, | |||
| DOUBLE PRECISION,dimension(id_tgt_size,8),intent(out) | dda_weights, | |||
| INTEGER,intent(out) | id_err | |||
| ) |
Definition at line 1341 of file prismdrv.F90.
1.6.1