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