WRITE(w_namcouple,'(A, A, A, A, I0, A)')counterpart,' ',io_field%name,' 1 ',timestep,' 2 restart_flc_'//TRIM(io_field%name(3:6))//'_'//TRIM(my_model_name)//'.nc EXPOUT'
WRITE(w_namcouple,'(A, A, A, A, I0, A)')io_field%name,' ',counterpart,' 1 ',timestep,' 2 restart_flc_'//TRIM(io_field%name(3:6))//'_'//TRIM(my_model_name)//'.nc EXPOUT'
#else
WRITE(w_namcouple,'(A, A, A, A, I0, A)')counterpart,' ',io_field%name,' 1 ',timestep,' 2 restart_flc_'//TRIM(io_field%name(3:6))//'_'//TRIM(my_model_name)//'.nc EXPORTED'
ELSE
WRITE(w_namcouple,'(A, A, A, A, I0, A)')io_field%name,' ',counterpart,' 1 ',timestep,' 2 restart_flc_'//TRIM(io_field%name(3:6))//'_'//TRIM(my_model_name)//'.nc EXPORTED'