Back to OASIS4 home
Routine
psmile_open_file_byid
(id_varid,id_taskid,current_date,ierror)
The routine opens files for reading or writing fields
indentified by vard_id
current_date = prism_initial_date = experiment_start date
call mpp_set_current_pelist(IO_Comps_infos(iicomp_id)%pelist) (IO_Comps_infos(iicomp_id)%pelist
calculated in psmile_io_init_pelist)
mpp_set_current_pelist
:
call mpp_set_root_pe(
MINVAL(peset(current_peset_num)%list) ) : return the value of the root